diff options
| author | Jim Meyering <jim@meyering.net> | 1998-10-17 12:47:21 +0000 |
|---|---|---|
| committer | Jim Meyering <jim@meyering.net> | 1998-10-17 12:47:21 +0000 |
| commit | 6cc7e13732aba2f643d535c0fa1d34940fbcbddc (patch) | |
| tree | bccb81409467f07e6e105e0f5a996cc9606adad5 /tests | |
| parent | 0e1c643956ecb5d56ba8f9b9ab0182c3575487a1 (diff) | |
| download | coreutils-6cc7e13732aba2f643d535c0fa1d34940fbcbddc.tar.xz | |
(run_tests): Run $prog with --version only if $verbose.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/Fetish.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/Fetish.pm b/tests/Fetish.pm index 678649942..dfbaddab3 100644 --- a/tests/Fetish.pm +++ b/tests/Fetish.pm @@ -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; |