Re-allow skipping of the bottom stack frames (which is useful in the …

…test-failure repl)
bestpractical · Aug 12, 2008 · 21d4e6f · 21d4e6f
1 parent 7329796
commit 21d4e6f
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 1 deletion.
diff --git a/lib/Carp/REPL.pm b/lib/Carp/REPL.pm
@@ -27,7 +27,7 @@ sub import {
         *Test::Builder::ok = sub {
             local $Test::Builder::Level = $Test::Builder::Level + 1;
             my $passed = $ok->(@_);
-            $bottom_frame = $Test::Builder::Level;
+            local $bottom_frame = $Test::Builder::Level;
             repl("Test failure") if !$passed;
             return $passed;
         };

diff --git a/lib/Devel/REPL/Plugin/Carp/REPL.pm b/lib/Devel/REPL/Plugin/Carp/REPL.pm
@@ -24,6 +24,10 @@ has stacktrace => (
             until @{ $stacktrace->{raw} } == 0
                || $stacktrace->{raw}[0]{caller}[3] eq 'Carp::REPL::repl';
 
+        shift @{ $stacktrace->{raw} }
+            until @{ $stacktrace->{raw} } == 0
+               || $Carp::REPL::bottom_frame-- <= 0;
+
         return $stacktrace;
     },
 );