diff options
| author | Jim Meyering <jim@meyering.net> | 1998-08-15 21:57:17 +0000 |
|---|---|---|
| committer | Jim Meyering <jim@meyering.net> | 1998-08-15 21:57:17 +0000 |
| commit | 327a21114aac8f422e2f81e7a02be1ff881241fd (patch) | |
| tree | 389305f2cf788ce7153be09392ea6b244dca82d7 /tests/ls-2 | |
| parent | df9178192633ba29bbe86dc786dd719b2166b2cf (diff) | |
| download | coreutils-327a21114aac8f422e2f81e7a02be1ff881241fd.tar.xz | |
*** empty log message ***
Diffstat (limited to 'tests/ls-2')
| -rw-r--r-- | tests/ls-2/T.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/ls-2/T.pm b/tests/ls-2/T.pm index 67f27df28..c254d1b13 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.12 $ ') =~ tr/[0-9].//cd; +($VERSION = '$Revision: 1.13 $ ') =~ tr/[0-9].//cd; @EXPORT = qw (run_tests); my @Types = qw (IN OUT ERR EXIT); @@ -206,7 +206,7 @@ sub run_tests ($$$$$) # FIXME: Require at least one of OUT_DATA, OUT_FILE. Why? - warn "$test_name...\n"; + 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); |