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

[Patrick Jenkins]

Changes in directory llvm/utils:

NewNightlyTest.pl updated: 1.8 -> 1.9
---
Log message:

Fixed some output issues where newlines were not being printed after error messages


---
Diffs of the changes:  (+4 -3)

 NewNightlyTest.pl |    7 ++++---
 1 files changed, 4 insertions(+), 3 deletions(-)


Index: llvm/utils/NewNightlyTest.pl
diff -u llvm/utils/NewNightlyTest.pl:1.8 llvm/utils/NewNightlyTest.pl:1.9
--- llvm/utils/NewNightlyTest.pl:1.8	Mon Jul 10 11:36:19 2006
+++ llvm/utils/NewNightlyTest.pl	Mon Jul 10 13:35:41 2006
@@ -281,7 +281,7 @@
 	$/ = '\n';
 	return $Ret;
     } else {
-	print "Could not open file '$_[0]' for reading!";
+	print "Could not open file '$_[0]' for reading!\n";
 	return "";
     }
 }
@@ -289,7 +289,7 @@
 #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
 #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
 sub WriteFile {  # (filename, contents)
-    open (FILE, ">$_[0]") or die "Could not open file '$_[0]' for writing!";
+    open (FILE, ">$_[0]") or die "Could not open file '$_[0]' for writing!\n";
     print FILE $_[1];
     close FILE;
 }
@@ -429,7 +429,8 @@
 
     my $sentdata="";
     foreach $x (keys (%$variables)){
-        $sentdata.= "$x  => $hash_of_data{$x}\n";
+        $value = $variables->{$x};
+        $sentdata.= "$x  => $value\n";
     }
     WriteFile "$Prefix-sentdata.txt", $sentdata;