CC-tea/coreutils
1
0
Fork 0
mirror of git://git.sv.gnu.org/coreutils.git synced 2026-08-10 18:52:01 +02:00
Code Issues Projects Releases Wiki Activity

*** empty log message ***

Browse Source
This commit is contained in:
Jim Meyering
1998-08-15 21:57:55 +00:00
parent 327a21114a
commit c3b1ab8af1
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
tests/ls-2/T.pm
+3 -3
View File
@@ -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)