small nits in changes#4538,4539

p4raw-link: @4539 on //depot/perl: 350de78d9c02710bb008e9ca922c78ba251ec366
p4raw-link: @4538 on //depot/perl: d18c61170a30691556a1da7413e13241a92f4e0a

p4raw-id: //depot/perl@4541

1 files changed, 5 insertions, 1 deletions

diff --git a/op.c b/op.c
index fadd4b37a9..1ea970d310 100644
--- a/op.c
+++ b/op.c
@@ -717,11 +717,15 @@ S_op_clear(pTHX_ OP *o)
     case OP_GVSV:
     case OP_GV:
     case OP_AELEMFAST:
-	SvREFCNT_dec(cGVOPo);
 #ifdef USE_ITHREADS
+	if (PL_curpad) {
+	    SvREFCNT_dec(cGVOPo);
+	    PL_curpad[cPADOPo->op_padix] = Nullsv;
+	}
 	pad_free(cPADOPo->op_padix);
 	cPADOPo->op_padix = 0;
 #else
+	SvREFCNT_dec(cGVOPo);
 	cSVOPo->op_sv = Nullsv;
 #endif
 	break;