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)) {