bzr commit into mysql-5.1 branch (Bjorn.Munch:2703) Bug#40924

[Bjorn Munch]

#At file:///home/bm136801/mysql/mtr-bug-40924/

 2703 Bjorn Munch	2008-12-02
      Bug #40924
modified:
  mysql-test/lib/mtr_report.pm

=== modified file 'mysql-test/lib/mtr_report.pm'

=== modified file 'mysql-test/lib/mtr_report.pm'
--- a/mysql-test/lib/mtr_report.pm	2008-10-23 19:27:09 +0000
+++ b/mysql-test/lib/mtr_report.pm	2008-12-02 14:56:21 +0000
@@ -110,22 +110,24 @@
 
   if ($result eq 'MTR_RES_FAILED'){
 
+    my $timest = format_time();
+
     if ( $warnings )
     {
-      mtr_report("[ fail ]  Found warnings in server log file!");
+      mtr_report("[ fail ] at $timest, Found warnings in server log file!");
       mtr_report($warnings);
       return;
     }
     my $timeout= $tinfo->{'timeout'};
     if ( $timeout )
     {
-      mtr_report("[ fail ]  timeout after $timeout minutes");
+      mtr_report("[ fail ] at $timest, timeout after $timeout seconds");
       mtr_report("\n$tinfo->{'comment'}");
       return;
     }
     else
     {
-      mtr_report("[ fail ]");
+      mtr_report("[ fail ] at $timest");
     }
 
     if ( $logfile )
@@ -372,6 +374,13 @@
 
 use Time::HiRes qw(gettimeofday);
 
+sub format_time {
+  my $tm= localtime();
+  return sprintf("%4d-%02d-%02d %02d:%02d:%02d",
+		 $tm->year + 1900, $tm->mon+1, $tm->mday,
+		 $tm->hour, $tm->min, $tm->sec);
+}
+
 my $t0= gettimeofday();
 
 sub _timestamp {