assert(PL_parser)

Coverity CID 135144: Dereference after null check (FORWARD_NULL)

Earlier, pp.c:8254-ish, PL_parser is tested against NULL, so it
presumably can be NULL.

1 files changed, 1 insertions, 0 deletions

diff --git a/op.c b/op.c
index 8a8eebb690..400726cc4d 100644
--- a/op.c
+++ b/op.c
@@ -8393,6 +8393,7 @@ Perl_newATTRSUB_x(pTHX_ I32 floor, OP *o, OP *proto, OP *attrs,
 		: NULL;
 
     if (block) {
+	assert(PL_parser);
 	/* This makes sub {}; work as expected.  */
 	if (block->op_type == OP_STUB) {
 	    const line_t l = PL_parser->copline;