assert() PL_parser before trying to dereference it

Perl · Mar 7, 2022 · 11e786a · 11e786a
1 parent 931014b
commit 11e786a
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/op.c b/op.c
@@ -9523,6 +9523,7 @@ Perl_newSTATEOP(pTHX_ I32 flags, char *label, OP *o)
     const U32 utf8 = flags & SVf_UTF8;
     COP *cop;
 
+    assert(PL_parser);
     PL_parser->parsed_sub = 0;
 
     flags &= ~SVf_UTF8;