diff options
Diffstat (limited to 'tests/ls-2')
| -rw-r--r-- | tests/ls-2/T.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/ls-2/T.pm b/tests/ls-2/T.pm index c254d1b13..3cffd5061 100644 --- a/tests/ls-2/T.pm +++ b/tests/ls-2/T.pm @@ -8,7 +8,7 @@ use FileHandle; use File::Compare qw(compare); @ISA = qw(Exporter); -($VERSION = '$Revision: 1.13 $ ') =~ tr/[0-9].//cd; +($VERSION = '$Revision: 1.14 $ ') =~ tr/[0-9].//cd; @EXPORT = qw (run_tests); my @Types = qw (IN OUT ERR EXIT); @@ -209,9 +209,9 @@ sub run_tests ($$$$$) warn "$test_name...\n" if $verbose; my $t_out = "$test_name-out"; my $t_err = "$test_name-err"; - push (@junk_files, $t_out, $t_err); + push @junk_files, $t_out, $t_err; my @cmd = ($prog, @args, "> $t_out", "2> $t_err"); - my $cmd_str = join (' ', @cmd); + my $cmd_str = join ' ', @cmd; warn "Running command: `$cmd_str'\n" if $verbose; my $rc = 0xffff & system $cmd_str; if ($rc == 0xff00) |