[SCM] WebKit Debian packaging branch, debian/unstable, updated. debian/1.1.18-1-697-g2f78b87

[eric at webkit.org]

The following commit has been merged in the debian/unstable branch:
commit e3449d2f61d2e5584251a4d36d540accccafc432
Author: eric at webkit.org <eric at webkit.org@268f45cc-cd09-0410-ab3c-d52691b4dbfc>
Date:   Tue Jan 5 19:51:32 2010 +0000

    2010-01-05  Chris Jerdonek  <chris.jerdonek at gmail.com>
    
            Reviewed by David Kilzer.
    
            Switched to generating list of Perl unit test files dynamically,
            instead of explicitly.
    
            https://bugs.webkit.org/show_bug.cgi?id=33200
    
            * Scripts/test-webkitperl:
    
    git-svn-id: http://svn.webkit.org/repository/webkit/trunk@52817 268f45cc-cd09-0410-ab3c-d52691b4dbfc

diff --git a/WebKitTools/ChangeLog b/WebKitTools/ChangeLog
index bcb228e..d6ce782 100644
--- a/WebKitTools/ChangeLog
+++ b/WebKitTools/ChangeLog
@@ -1,3 +1,14 @@
+2010-01-05  Chris Jerdonek  <chris.jerdonek at gmail.com>
+
+        Reviewed by David Kilzer.
+
+        Switched to generating list of Perl unit test files dynamically,
+        instead of explicitly.
+
+        https://bugs.webkit.org/show_bug.cgi?id=33200
+
+        * Scripts/test-webkitperl:
+
 2010-01-05  Yael Aharon  <yael.aharon at nokia.com>
 
         Reviewed by Kenneth Rohde Christiansen.
diff --git a/WebKitTools/Scripts/test-webkitperl b/WebKitTools/Scripts/test-webkitperl
index e37a332..2e31593 100755
--- a/WebKitTools/Scripts/test-webkitperl
+++ b/WebKitTools/Scripts/test-webkitperl
@@ -30,23 +30,20 @@
 
 # Runs unit tests of WebKit Perl code.
 
+use strict;
+use warnings;
+
+use File::Spec;
 use FindBin;
 use Test::Harness;
 use lib $FindBin::Bin; # so this script can be run from any directory.
 use VCSUtils;
 
 # Use an absolute path so this script can be run from any directory.
-$scriptsDir = $FindBin::Bin;
-$scriptsDir =~ s|/+$||; # Remove trailing '/'
+my $scriptsDir = $FindBin::Bin;
 
-# VCSUtils subroutines
-my @files = (
-    "fixChangeLogPatch.pl",
-    "generatePatchCommand.pl",
-    "gitdiff2svndiff.pl",
-    "runPatchCommand.pl",
-);
+my $pattern = File::Spec->catfile($scriptsDir, "webkitperl/*_unittest/*.pl");
 
- at files = map "$scriptsDir/webkitperl/VCSUtils_unittest/$_", @files; # prepend
+my @files = <${pattern}>; # lists files alphabetically
 
 runtests(@files);

-- 
WebKit Debian packaging