diff options
Diffstat (limited to 'tests/test_driver.pl')
| -rw-r--r-- | tests/test_driver.pl | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/tests/test_driver.pl b/tests/test_driver.pl index 4fb738b..18dcc4b 100644 --- a/tests/test_driver.pl +++ b/tests/test_driver.pl @@ -117,7 +117,8 @@ sub toplevel closedir (SCRIPTDIR); foreach $dir (@dirs) { - next if ! -d "$scriptpath/$dir" || $dir =~ /^\.\.?$/ || $dir eq 'CVS'; + next if ($dir =~ /^\.\.?$/ || $dir eq 'CVS' || $dir eq 'RCS' + || ! -d "$scriptpath/$dir"); push (@rmdirs, $dir); mkdir ("$workpath/$dir", 0777) || &error ("Couldn't mkdir $workpath/$dir: $!\n"); @@ -127,7 +128,7 @@ sub toplevel closedir (SCRIPTDIR); foreach $test (@files) { - next if $test =~ /^\.\.?$/ || $test =~ /~$/ || $test eq 'CVS'; + next if $test =~ /~$/ || -d $test; push (@TESTS, "$dir/$test"); } } |