diff options
-rw-r--r-- | lib/Reply/Plugin/CarpReply.pm | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/lib/Reply/Plugin/CarpReply.pm b/lib/Reply/Plugin/CarpReply.pm index 5c9ad56..735ec66 100644 --- a/lib/Reply/Plugin/CarpReply.pm +++ b/lib/Reply/Plugin/CarpReply.pm @@ -134,14 +134,16 @@ sub _frame_index { print "You're already at the top frame.\n"; } else { - $self->{frame_index} = $index; - printf "Now at %s:%s (frame $index)\n", - $self->_frame->filename, - $self->_frame->line; + if (!defined $self->{frame_index} || $self->{frame_index} != $index) { + $self->{frame_index} = $index; + printf "Now at %s:%s (frame $index)\n", + $self->_frame->filename, + $self->_frame->line; + } $self->publish( 'lexical_environment', - default => $self->_frame->lexicals + $self->_frame->lexicals ); $self->publish('package', $self->_frame->package); } |