[llvm-commits] CVS: llvm/utils/NewNightlyTest.pl

[Patrick Jenkins]

Changes in directory llvm/utils:

NewNightlyTest.pl updated: 1.40 -> 1.41
---
Log message:

Encapsulated all of the print statements in "if( $VERBOSE) { }". The testing script will be absoutely silent now except for errors, which will still be printed to the annoyance of the user.


---
Diffs of the changes:  (+6 -6)

 NewNightlyTest.pl |   12 ++++++------
 1 files changed, 6 insertions(+), 6 deletions(-)


Index: llvm/utils/NewNightlyTest.pl
diff -u llvm/utils/NewNightlyTest.pl:1.40 llvm/utils/NewNightlyTest.pl:1.41
--- llvm/utils/NewNightlyTest.pl:1.40	Fri Aug  4 12:40:54 2006
+++ llvm/utils/NewNightlyTest.pl	Fri Aug  4 12:53:27 2006
@@ -185,7 +185,7 @@
 }
 
 
-if (@ARGV != 0 and @ARGV != 3){
+if (@ARGV != 0 and @ARGV != 3 and $VERBOSE){
 	foreach $x (@ARGV){
 		print "$x\n";
 	}
@@ -376,7 +376,7 @@
     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 @@
 			$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 @@
 		#} 
 		elsif ( $readingsum ) {
 		    push(@lines,"$_\n");
-		    print "  $_\n";
+		    if( $VERBOSE) { print "  $_\n"; }
 		}
 
 	    }
@@ -460,7 +460,7 @@
     $send.= "Content-length: $length\n\n";
     $send.= "$content";
 
-    print SOCK $send;
+    #print SOCK $send;
     my $result;
     while(<SOCK>){
         $result  .= $_;