S_forget_pmop() only needs a flags argument for the ithreads case,

because PmopSTASH_free() is a no-op in an unthreaded perl.

p4raw-id: //depot/perl@30891

1 files changed, 2 insertions, 0 deletions

diff --git a/op.h b/op.h
index 2631fa8228..d9d53365e6 100644
--- a/op.h
+++ b/op.h
@@ -422,6 +422,8 @@ struct pmop {
 #  define PmopSTASHPV(o)	(PmopSTASH(o) ? HvNAME_get(PmopSTASH(o)) : NULL)
    /* op_pmstashstartu.op_pmstash is not refcounted */
 #  define PmopSTASHPV_set(o,pv)	PmopSTASH_set((o), gv_stashpv(pv,GV_ADD))
+/* Note that if this becomes non-empty, then S_forget_pmop in op.c will need
+   changing */
 #  define PmopSTASH_free(o)    
 #endif