From: Andreas König <a.koenig@mind.de>
Date: Sun, 11 Feb 2001 14:37:00 +0000 (+0100)
Subject: Test::Harness
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=66fd8cb95c4406632e1d0e384b66b49a32063913;p=p5sagit%2Fp5-mst-13.2.git

Test::Harness
Message-ID: <m3g0hll4sj.fsf@ak-71.mind.de>

p4raw-id: //depot/perl@8768
---

diff --git a/lib/Test/Harness.pm b/lib/Test/Harness.pm
index 332eed9..adfc170 100644
--- a/lib/Test/Harness.pm
+++ b/lib/Test/Harness.pm
@@ -143,6 +143,7 @@ sub _runtests {
 	if ($wstatus) {
             $failedtests{$test} = _dubious_return(\%test, \%tot, 
                                                   $estatus, $wstatus);
+            $failedtests{$test}{name} = $test;
 	}
         elsif ($test{ok} == $test{max} && $test{next} == $test{max}+1) {
 	    if ($test{max} and $test{skipped} + $test{bonus}) {
@@ -480,7 +481,7 @@ sub _dubious_return {
 
     return { canon => $canon,  max => $test->{max} || '??',
              failed => $failed, 
-             name => $test, percent => $percent,
+             percent => $percent,
              estat => $estatus, wstat => $wstatus,
            };
 }