[svn:parrot] r10727 - trunk/t

[particle]

Author: particle
Date: Wed Dec 28 08:51:03 2005
New Revision: 10727

Modified:
   trunk/t/harness
Log:
[perl #38057] [PATCH] fixes a little typo from chromatic some time ago
Courtesy of Alberto Simões <[EMAIL PROTECTED]>

Modified: trunk/t/harness
==============================================================================
--- trunk/t/harness     (original)
+++ trunk/t/harness     Wed Dec 28 08:51:03 2005
@@ -184,8 +184,9 @@ unless ($html) {
         printf STDERR "%s OK from %s tests (%.2f%% ok)\n\n",
             $stats{ok},
             $stats{tests},
-            $stats{ok} / $stats{tests} * 100,
-            $self->{meat}{end_time} = time;
+            $stats{ok} / $stats{tests} * 100;
+
+        $self->{meat}{end_time} = time;
       };
 
       my $start = time();