*** empty log message ***

diff --git a/tests/ls-2/T.pm b/tests/ls-2/T.pm
index 67f27df28e1d317ab0b0671594bac2ea2d7e7d93..c254d1b1300a49ac23d68efbb9dfbba2bfb708e8 100644 (file)
--- 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);