From: Jim Meyering <jim@meyering.net>
Date: Sat, 17 Oct 1998 12:47:21 +0000 (+0000)
Subject: (run_tests): Run $prog with --version only if $verbose.
X-Git-Tag: FILEUTILS-4_0-b4~8
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=6cc7e13732aba2f643d535c0fa1d34940fbcbddc;p=platform%2Fupstream%2Fcoreutils.git

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

diff --git a/tests/Fetish.pm b/tests/Fetish.pm
index 6786499..dfbadda 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;