From 61364ad449079a38afb60e4d27197ff2a61c460f Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Sun, 21 Jul 2013 10:50:36 -0400
Subject: need to save PL_op too

---
 Keyword.xs | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/Keyword.xs b/Keyword.xs
index 6b60546..aeac9a0 100644
--- a/Keyword.xs
+++ b/Keyword.xs
@@ -83,13 +83,16 @@ parse_block()
   PREINIT:
     I32 floor;
     CV *code;
+    OP *old_pl_op;
   CODE:
     PL_curcop = &PL_compiling;
+    old_pl_op = PL_op;
     floor = start_subparse(0, CVf_ANON);
     code = newATTRSUB(floor, NULL, NULL, NULL, parse_block(0));
     if (CvCLONE(code)) {
         code = cv_clone(code);
     }
+    PL_op = old_pl_op;
     RETVAL = newRV_inc((SV*)code);
   OUTPUT:
     RETVAL
-- 
cgit v1.2.3-54-g00ecf