If PL_curpm is pointing to an op that is getting freed, reset it to

NULL. Otherwise we have a pointer dangling into undefined behaviour.

p4raw-id: //depot/perl@30888

1 files changed, 2 insertions, 0 deletions

diff --git a/op.c b/op.c
index fc1ea7066c..efe5611a62 100644
--- a/op.c
+++ b/op.c
@@ -663,6 +663,8 @@ S_forget_pmop(pTHX_ PMOP *const o, U32 flags)
 	    }
 	}
     }
+    if (PL_curpm == o) 
+	PL_curpm = NULL;
     if (flags)
 	PmopSTASH_free(o);
 }