X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FTest%2FHarness.pm;h=2024d24305271854933112ea973d5b9b8e6089df;hb=cdfe229e642682dd52e04cdd1232a90648b35fe3;hp=46592075f428ee24df069d45609be2f1cf0ff6f7;hpb=8d0d504096dac80115e0133d173ed8b2b603e2ee;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/lib/Test/Harness.pm b/lib/Test/Harness.pm
index 4659207..2024d24 100644
--- a/lib/Test/Harness.pm
+++ b/lib/Test/Harness.pm
@@ -38,7 +38,7 @@ Version 2.58
 
 =cut
 
-$VERSION = '2.58';
+$VERSION = '2.58_01';
 
 # Backwards compatibility for exportable variable names.
 *verbose  = *Verbose;
@@ -561,10 +561,9 @@ sub get_results {
         if ($tot->{bonus}) {
             my($fmt_top, $fmt) = _create_fmts("Passed TODO",$todo_passed);
             # Now write to formats
+            $out .= swrite( $fmt_top );
             for my $script (sort keys %{$todo_passed||{}}) {
                 my $Curtest = $todo_passed->{$script};
-
-                $out .= swrite( $fmt_top );
                 $out .= swrite( $fmt, @{ $Curtest }{qw(name estat wstat max failed canon)} );
             }
         }
@@ -584,9 +583,9 @@ sub get_results {
         my($fmt_top, $fmt1, $fmt2) = _create_fmts("Failed Test",$failedtests);
 
         # Now write to formats
+        $out .= swrite( $fmt_top );
         for my $script (sort keys %$failedtests) {
             my $Curtest = $failedtests->{$script};
-            $out .= swrite( $fmt_top );
             $out .= swrite( $fmt1, @{ $Curtest }{qw(name estat wstat max failed canon)} );
             $out .= swrite( $fmt2, $Curtest->{canon} );
         }