fix for latest reply

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);
     }