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
This commit is contained in:
Patrick Jenkins 2006-07-10 18:35:41 +00:00
parent 7b4bb60e9a
commit 7267bd6c1a

View File

@ -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;