forked from OSchip/llvm-project
Fixed some output issues where newlines were not being printed after error messages
llvm-svn: 29082
This commit is contained in:
parent
44ebd5a4f7
commit
7ac78b99e6
|
@ -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;
|
||||
|
||||
|
|
Loading…
Reference in New Issue