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

diff --git a/utils/NewNightlyTest.pl b/utils/NewNightlyTest.pl
index 67af967974f8481b3c701be4298038c8edc117fe..402cc3b7d5575d9eea1b8206f903f5eec9163291 100755 (executable)
--- 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;