From 330e22d5036b4b1f7e7b4336c48c776a45e1f14f Mon Sep 17 00:00:00 2001
From: Artur Bergman <sky@nanisky.com>
Date: Sun, 2 Feb 2003 23:46:24 +0000
Subject: In any case, never copy this but use the same SV since if we copy we
 loose the hash we so badly need. For op_const we might still need to copy
 however.

p4raw-id: //depot/perl@18641
---
 op.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'op.c')

diff --git a/op.c b/op.c
index 610c0e5a22..abd9417ec4 100644
--- a/op.c
+++ b/op.c
@@ -6086,7 +6086,7 @@ Perl_peep(pTHX_ register OP *o)
 	     * for reference counts, sv_upgrade() etc. */
 	    if (cSVOP->op_sv) {
 		PADOFFSET ix = pad_alloc(OP_CONST, SVs_PADTMP);
-		if (SvPADTMP(cSVOPo->op_sv)) {
+		if (o->op_type == OP_CONST && SvPADTMP(cSVOPo->op_sv)) {
 		    /* If op_sv is already a PADTMP then it is being used by
 		     * some pad, so make a copy. */
 		    sv_setsv(PAD_SVl(ix),cSVOPo->op_sv);
-- 
cgit v1.2.1