From 7267bd6c1a2772f93b376745c24218e612188d56 Mon Sep 17 00:00:00 2001
From: Patrick Jenkins <pjenkins@apple.com>
Date: Mon, 10 Jul 2006 18:35:41 +0000
Subject: [PATCH] Fixed some output issues where newlines were not being
 printed after error messages

git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@29082 91177308-0d34-0410-b5e6-96231b3b80d8
---
 utils/NewNightlyTest.pl | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/utils/NewNightlyTest.pl b/utils/NewNightlyTest.pl
index 67af967974f..402cc3b7d55 100755
--- a/utils/NewNightlyTest.pl
+++ b/utils/NewNightlyTest.pl
@@ -281,7 +281,7 @@ sub ReadFile {
 	$/ = '\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 ReadFile {
 #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
 #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
 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 @@ sub SendData{
 
     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;