From c212702d2eadc4d4062fedfa101c4c011f515a9d Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Thu, 4 Jul 2013 14:27:28 -0400
Subject: fix for latest reply

---
 lib/Reply/Plugin/CarpReply.pm | 12 +++++++-----
 1 file 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);
     }
-- 
cgit v1.2.3-54-g00ecf