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

[Patrick Jenkins]

Changes in directory llvm/utils:

NewNightlyTest.pl updated: 1.21 -> 1.22
---
Log message:

Fixed an issue of variable scope that prevented file size from being submitted to the server.



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

 NewNightlyTest.pl |   10 ++++++----
 1 files changed, 6 insertions(+), 4 deletions(-)


Index: llvm/utils/NewNightlyTest.pl
diff -u llvm/utils/NewNightlyTest.pl:1.21 llvm/utils/NewNightlyTest.pl:1.22
--- llvm/utils/NewNightlyTest.pl:1.21	Fri Jul 21 14:51:40 2006
+++ llvm/utils/NewNightlyTest.pl	Fri Jul 21 16:43:09 2006
@@ -1,5 +1,4 @@
 #!/usr/bin/perl
-
 use POSIX qw(strftime);
 use File::Copy;
 use Socket;
@@ -455,7 +454,7 @@
 # Getting Start timestamp
 #
 ##############################################################
-$starttime = `date`;
+$starttime = `date "+20%y-%m-%d %H:%M:%S"`;
 
 ##############################################################
 #
@@ -612,6 +611,8 @@
 #my $NumLibraries   = scalar(grep(!/executable/, @Linked));
 #my $NumObjects     = `grep ']\: Compiling ' $BuildLog | wc -l` + 0;
 
+my $a_file_sizes="";
+my $o_file_sizes="";
 if(!$BuildError){
 	ChangeDir( "$BuildDir", "Build Directory" );
 	$afiles = `find . -iname '*.a' -ls`;
@@ -621,7 +622,8 @@
 	foreach $x (@AFILES){
 	  $x =~ m/.+\s+.+\s+.+\s+.+\s+.+\s+.+\s+(.+)\s+.+\s+.+\s+.+\s+(.+)/;
 	  $a_file_sizes.="$1 $2\n";
-	}	@OFILES = split "\n", $ofiles;
+	}	
+	@OFILES = split "\n", $ofiles;
 	$o_file_sizes="";
 	foreach $x (@OFILES){
 	  $x =~ m/.+\s+.+\s+.+\s+.+\s+.+\s+.+\s+(.+)\s+.+\s+.+\s+.+\s+(.+)/;
@@ -960,7 +962,7 @@
 # Getting end timestamp
 #
 ##############################################################
-$endtime = `date`;
+$endtime = `date "+20%y-%m-%d %H:%M:%S"`;
 
 
 ##############################################################