Encapsulated all of the print statements in "if( $VERBOSE) { }". The testing script...
authorPatrick Jenkins <pjenkins@apple.com>
Fri, 4 Aug 2006 17:53:27 +0000 (17:53 +0000)
committerPatrick Jenkins <pjenkins@apple.com>
Fri, 4 Aug 2006 17:53:27 +0000 (17:53 +0000)
git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@29525 91177308-0d34-0410-b5e6-96231b3b80d8

utils/NewNightlyTest.pl

index 13e966d7af78abf997293da111b50bcaf4896c0b..9fb8ff44dc202bdb03e05322e9d184c9392217c0 100755 (executable)
@@ -185,7 +185,7 @@ if ($CONFIGUREARGS !~ /--disable-jit/) {
 }
 
 
-if (@ARGV != 0 and @ARGV != 3){
+if (@ARGV != 0 and @ARGV != 3 and $VERBOSE){
        foreach $x (@ARGV){
                print "$x\n";
        }
@@ -376,7 +376,7 @@ sub GetDejagnuTestResults { # (filename, log)
     my $firstline;
     $/ = "\n"; #Make sure we're going line at a time.
 
-    print "DEJAGNU TEST RESULTS:\n";
+    if( $VERBOSE) { print "DEJAGNU TEST RESULTS:\n"; }
 
     if (open SRCHFILE, $filename) {
     # Process test results
@@ -394,10 +394,10 @@ sub GetDejagnuTestResults { # (filename, log)
                        $first_list = 0;
                        $should_break = 1;
                        push(@lines, "$_\n");
-                       print "  $_\n";
+                       if( $VERBOSE) { print "  $_\n"; }
                    } else {
                        push(@lines, "$_\n");
-                       print "  $_\n";
+                       if( $VERBOSE) { print "  $_\n"; }
                    }
                } #elsif ( m/Summary/ ) {
                #    if ( $first_list ) {
@@ -414,7 +414,7 @@ sub GetDejagnuTestResults { # (filename, log)
                #} 
                elsif ( $readingsum ) {
                    push(@lines,"$_\n");
-                   print "  $_\n";
+                   if( $VERBOSE) { print "  $_\n"; }
                }
 
            }
@@ -460,7 +460,7 @@ sub SendData{
     $send.= "Content-length: $length\n\n";
     $send.= "$content";
 
-    print SOCK $send;
+    #print SOCK $send;
     my $result;
     while(<SOCK>){
         $result  .= $_;