diff options
author | Jesse Luehrs <doy@tozt.net> | 2013-06-26 14:04:29 -0400 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2013-06-26 14:04:29 -0400 |
commit | 2c7ff8fc16795c25234a8cb9847712d581396562 (patch) | |
tree | 27632073d5deceda753763d2ae5ffcaaecd8e208 | |
parent | 7561077cf06f8228aa32f21d4e7e7e819d052f8b (diff) | |
download | carp-reply-2c7ff8fc16795c25234a8cb9847712d581396562.tar.gz carp-reply-2c7ff8fc16795c25234a8cb9847712d581396562.zip |
set the current package properly when moving around in frames
-rw-r--r-- | lib/Carp/Reply.pm | 2 | ||||
-rw-r--r-- | lib/Reply/Plugin/CarpReply.pm | 1 |
2 files changed, 2 insertions, 1 deletions
diff --git a/lib/Carp/Reply.pm b/lib/Carp/Reply.pm index cc1316d..ea6ecfc 100644 --- a/lib/Carp/Reply.pm +++ b/lib/Carp/Reply.pm @@ -3,7 +3,7 @@ use strict; use warnings; # ABSTRACT: get a repl on exceptions in your program -use Reply; +use Reply 0.13; use Reply::Config; =head1 SYNOPSIS diff --git a/lib/Reply/Plugin/CarpReply.pm b/lib/Reply/Plugin/CarpReply.pm index 3bc2719..7206348 100644 --- a/lib/Reply/Plugin/CarpReply.pm +++ b/lib/Reply/Plugin/CarpReply.pm @@ -40,6 +40,7 @@ sub compile { my ($next, $line, %opts) = @_; $opts{environment} = $self->_frame->lexicals; + $opts{package} = $self->_frame->package; return $next->($line, %opts); } |