From 1b8ca4ff78dfb24de0a171877b8c742c79645125 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Thu, 4 Jul 2013 13:59:29 -0400
Subject: have to re-publish this every loop, or LexicalPersistence resets it

---
 lib/Reply/Plugin/CarpReply.pm | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/lib/Reply/Plugin/CarpReply.pm b/lib/Reply/Plugin/CarpReply.pm
index 3f9622f..5c9ad56 100644
--- a/lib/Reply/Plugin/CarpReply.pm
+++ b/lib/Reply/Plugin/CarpReply.pm
@@ -35,6 +35,17 @@ sub new {
     return $self;
 }
 
+sub compile {
+    my $self = shift;
+    my ($next, $line, %args) = @_;
+
+    $self->_frame_index($self->{frame_index});
+
+    my ($code) = $next->($line, %args);
+
+    return $code;
+}
+
 sub command_backtrace {
     my $self = shift;
     print "Backtrace:\n";
-- 
cgit v1.2.3