diff options
Diffstat (limited to 'unittest/unit.pl')
| -rw-r--r-- | unittest/unit.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/unittest/unit.pl b/unittest/unit.pl index b83132581f9..0b2a26446f0 100644 --- a/unittest/unit.pl +++ b/unittest/unit.pl @@ -66,7 +66,7 @@ sub _find_test_files (@) { my @files; find sub { $File::Find::prune = 1 if /^SCCS$/; - push(@files, $File::Find::name) if -x _ && /-t\z/; + push(@files, $File::Find::name) if -x _ && (/-t\z/ || /-t\.exe\z/); }, @dirs; return @files; } @@ -102,7 +102,7 @@ sub run_cmd (@) { if (@files > 0) { # Removing the first './' from the file names foreach (@files) { s!^\./!! } - $ENV{'HARNESS_PERL_SWITCHES'} .= q" -e 'exec @ARGV'"; + $ENV{'HARNESS_PERL_SWITCHES'} .= ' -e "exec @ARGV"'; runtests @files; } } |