diff options
| author | Paul Smith <psmith@gnu.org> | 2002-04-21 23:57:24 +0000 |
|---|---|---|
| committer | Paul Smith <psmith@gnu.org> | 2002-04-21 23:57:24 +0000 |
| commit | 92e1b7e1235619a623c9bdadc087aaec28689c29 (patch) | |
| tree | 4068151d4bd9fcd5d63bff8f824d0fad325d0fc8 /tests/test_driver.pl | |
| parent | bed2de207825ffcee5e1b82bc38428d784a2de68 (diff) | |
| download | make-92e1b7e1235619a623c9bdadc087aaec28689c29.tar.gz | |
Update GNU make to use Autoconf 2.53, Automake 1.6.1, Gettext 0.11.1.
We're using Gettext's "external" feature to avoid including the intl
code in the GNU make distribution.
Diffstat (limited to 'tests/test_driver.pl')
| -rw-r--r-- | tests/test_driver.pl | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/tests/test_driver.pl b/tests/test_driver.pl index 18dcc4be..a7a3b9fa 100644 --- a/tests/test_driver.pl +++ b/tests/test_driver.pl @@ -113,7 +113,7 @@ sub toplevel print "Finding tests...\n"; opendir (SCRIPTDIR, $scriptpath) || &error ("Couldn't opendir $scriptpath: $!\n"); - @dirs = readdir (SCRIPTDIR); + @dirs = grep (!/^(\.\.?|CVS|RCS)$/, readdir (SCRIPTDIR) ); closedir (SCRIPTDIR); foreach $dir (@dirs) { @@ -124,7 +124,7 @@ sub toplevel || &error ("Couldn't mkdir $workpath/$dir: $!\n"); opendir (SCRIPTDIR, "$scriptpath/$dir") || &error ("Couldn't opendir $scriptpath/$dir: $!\n"); - @files = readdir (SCRIPTDIR); + @files = grep (!/^(\.\.?|CVS|RCS)$/, readdir (SCRIPTDIR) ); closedir (SCRIPTDIR); foreach $test (@files) { @@ -777,7 +777,7 @@ sub remove_directory_tree_inner $subdirhandle++; while ($object = readdir ($dirhandle)) { - if ($object eq "." || $object eq "..") + if ($object =~ /^(\.\.?|CVS|RCS)$/) { next; } @@ -912,7 +912,7 @@ sub compare_dir_tree local (@allfiles); opendir (DIR, $basedir) || &error ("Couldn't open $basedir: $!\n", 1); - @allfiles = grep (!/^\.\.?$/, readdir (DIR) ); + @allfiles = grep (!/^(\.\.?|CVS|RCS)$/, readdir (DIR) ); closedir (DIR); if ($debug) { @@ -955,7 +955,7 @@ sub compare_dir_tree { @files = readdir (DIR); closedir (DIR); - @files = grep (!/^\.\.?$/ && ($_ = "$path/$_"), @files); + @files = grep (!/^(\.\.?|CVS|RCS)$/ && ($_ = "$path/$_"), @files); push (@allfiles, @files); if ($debug) { |