1
0
mirror of git://git.sv.gnu.org/coreutils.git synced 2026-03-04 20:12:50 +02:00

(run_tests): Run $prog with --version only if $verbose.

This commit is contained in:
Jim Meyering
1998-10-17 12:47:21 +00:00
parent 0e1c643956
commit 6cc7e13732

View File

@@ -12,7 +12,7 @@ use FileHandle;
use File::Compare qw(compare);
@ISA = qw(Exporter);
($VERSION = '$Revision: 1.5 $ ') =~ tr/[0-9].//cd;
($VERSION = '$Revision: 1.6 $ ') =~ tr/[0-9].//cd;
@EXPORT = qw (run_tests);
my $debug = $ENV{DEBUG};
@@ -123,7 +123,7 @@ sub run_tests ($$$$$)
return 1 if $found_duplicate;
# FIXME check exit status
system ($prog, '--version');
system ($prog, '--version') if $verbose;
my @junk_files;
my $fail = 0;