stack traces

[Fergal Daly]

I have svn commit access but no idea how to use it prooperly so
attached is a 5 line patch to Test::Builder to make it say things like

1..2
not ok 1
#   Failed test in stack.t at line 4.
#   Called from stack.t at line 8.
not ok 2 - wibble
#   Failed test 'wibble'
#   in stack.t at line 5.
#   Called from stack.t at line 8.
# Looks like you failed 2 tests of 2.

where stack.t is

use Test::More tests => 2;

sub f {
 fail();
 fail("wibble");
}

f()

F

Index: lib/Test/Builder.pm
===================================================================
--- lib/Test/Builder.pm	(revision 3740)
+++ lib/Test/Builder.pm	(working copy)
@@ -456,6 +456,11 @@
 	else {
 	    $self->diag(qq[  $msg test in $file at line $line.\n]);
 	}
+	my $frame = 1;
+	while (my ($pack, $file, $line) = $self->caller($frame)) {
+	    $self->diag(qq[  Called from $file at line $line.\n]);
+	    $frame++;
+	}
     } 
 
     return $test ? 1 : 0;