diff options
| author | Jim Meyering <jim@meyering.net> | 1998-08-15 21:57:55 +0000 |
|---|---|---|
| committer | Jim Meyering <jim@meyering.net> | 1998-08-15 21:57:55 +0000 |
| commit | c3b1ab8af1b439baa9e4e5e308fd7ebf463821ce (patch) | |
| tree | cb307f79da4828525f758c74dabddb6798c8cc3b /tests/ls-2 | |
| parent | 327a21114aac8f422e2f81e7a02be1ff881241fd (diff) | |
| download | coreutils-c3b1ab8af1b439baa9e4e5e308fd7ebf463821ce.tar.xz | |
*** empty log message ***
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) |