[Bps-public-commit] r13443 - in Carp-REPL: lib/Carp

[sartak at bestpractical.com]

Author: sartak
Date: Fri Jun 20 02:36:35 2008
New Revision: 13443

Modified:
   Carp-REPL/   (props changed)
   Carp-REPL/lib/Carp/REPL.pm

Log:
 r62890 at dhcp184:  sartak | 2008-06-20 01:36:25 -0500
 Skip up $Test::Builder::Level for the bottom frame


Modified: Carp-REPL/lib/Carp/REPL.pm
==============================================================================
--- Carp-REPL/lib/Carp/REPL.pm	(original)
+++ Carp-REPL/lib/Carp/REPL.pm	Fri Jun 20 02:36:35 2008
@@ -27,7 +27,8 @@
         *Test::Builder::ok = sub {
             local $Test::Builder::Level = $Test::Builder::Level + 1;
             my $passed = $ok->(@_);
-            repl() if !$passed;
+            $bottom_frame = $Test::Builder::Level;
+            repl("Test failure") if !$passed;
             return $passed;
         };
     }