Mark all places where perl needs to look at a possibly-freed scalar

with a macro SvIS_FREED(sv)

p4raw-id: //depot/perl@26132

1 files changed, 1 insertions, 1 deletions

diff --git a/op.c b/op.c
index a3dee91b33..d9cb1d0b65 100644
--- a/op.c
+++ b/op.c
@@ -407,7 +407,7 @@ Perl_op_clear(pTHX_ OP *o)
 clear_pmop:
 	{
 	    HV * const pmstash = PmopSTASH(cPMOPo);
-	    if (pmstash && SvREFCNT(pmstash)) {
+	    if (pmstash && !SvIS_FREED(pmstash)) {
 		MAGIC * const mg = mg_find((SV*)pmstash, PERL_MAGIC_symtab);
 		if (mg) {
 		    PMOP *pmop = (PMOP*) mg->mg_obj;