summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJesse Luehrs <doy@tozt.net>2013-07-21 00:03:57 -0400
committerJesse Luehrs <doy@tozt.net>2013-07-21 00:03:57 -0400
commit3d4fd403e7a62181ee0d40823c8991628481c6cd (patch)
treec98226b3b097a25e38f87e8a140398e776ea7d01
parentac41a18e2a7beb17db09221cc55c6cf106ecd8b8 (diff)
downloadparse-keyword-3d4fd403e7a62181ee0d40823c8991628481c6cd.tar.gz
parse-keyword-3d4fd403e7a62181ee0d40823c8991628481c6cd.zip
reset PL_curcop when we're about to start compiling again
-rw-r--r--Keyword.xs1
1 files changed, 1 insertions, 0 deletions
diff --git a/Keyword.xs b/Keyword.xs
index a2a4aa1..cc62542 100644
--- a/Keyword.xs
+++ b/Keyword.xs
@@ -93,6 +93,7 @@ parse_block()
I32 floor;
CV *code;
CODE:
+ PL_curcop = &PL_compiling;
floor = start_subparse(0, CVf_ANON);
code = newATTRSUB(floor, NULL, NULL, NULL, parse_block(0));
if (CvCLONE(code)) {