From b96d96f8332b9aa42ede436c645e7add2ffb4638 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Sun, 21 Jul 2013 10:56:55 -0400
Subject: make some macros for this

---
 Keyword.xs | 18 ++++++++++++++----
 1 file changed, 14 insertions(+), 4 deletions(-)

diff --git a/Keyword.xs b/Keyword.xs
index aeac9a0..800f474 100644
--- a/Keyword.xs
+++ b/Keyword.xs
@@ -3,6 +3,14 @@
 #include "callparser1.h"
 #include "XSUB.h"
 
+#define REENTER_PARSER STMT_START {    \
+    ENTER;                     \
+    PL_curcop = &PL_compiling; \
+    SAVEVPTR(PL_op);           \
+} STMT_END
+
+#define LEAVE_PARSER LEAVE
+
 static OP *parser_callback(pTHX_ GV *namegv, SV *psobj, U32 *flagsp)
 {
     dSP;
@@ -83,16 +91,18 @@ parse_block()
   PREINIT:
     I32 floor;
     CV *code;
-    OP *old_pl_op;
   CODE:
-    PL_curcop = &PL_compiling;
-    old_pl_op = PL_op;
+    REENTER_PARSER;
+
     floor = start_subparse(0, CVf_ANON);
     code = newATTRSUB(floor, NULL, NULL, NULL, parse_block(0));
+
+    LEAVE_PARSER;
+
     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