From 22ee947a3e8bd1cadab8e2e89a2382b8d13e3742 Mon Sep 17 00:00:00 2001
From: "Matthew Horsfall (alh)" <wolfsage@gmail.com>
Date: Fri, 31 Jan 2014 17:21:43 -0500
Subject: [PATCH] Don't pull state vars into padrange ops

---
 op.c | 1 +
 1 file changed, 1 insertion(+)

diff --git a/op.c b/op.c
index 3d7b263..1008a3b 100644
--- a/op.c
+++ b/op.c
@@ -11568,6 +11568,7 @@ Perl_rpeep(pTHX_ OP *o)
                                || p->op_type == OP_PADHV)
                             && (p->op_flags & OPf_WANT) == OPf_WANT_VOID
                             && (p->op_private & OPpLVAL_INTRO) == intro
+                            && !(p->op_private & ~OPpLVAL_INTRO)
                             && p->op_next
                             && (   p->op_next->op_type == OP_NEXTSTATE
                                 || p->op_next->op_type == OP_DBSTATE)
-- 
2.7.4