From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 10 Oct 2000 23:30:46 +0000 (+0000)
Subject: (Retracted by #7200.)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=47ae9dc79115de479a02ff8d99389c8fd39080ba;p=p5sagit%2Fp5-mst-13.2.git

(Retracted by #7200.)

p4raw-id: //depot/perl@7198
---

diff --git a/pp_hot.c b/pp_hot.c
index d5cffe5..c49e929 100644
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -169,7 +169,8 @@ PP(pp_concat)
 	    s = (U8*)SvPV(right,len);
             if (TARG == right) {
 		/* Take a copy since we're about to overwrite TARG */
-		olds = s = (U8*)savepvn((char*)s, len);
+	        olds = s;
+		s = (U8*)savepvn((char*)s, len);
 	    }
 	    if (!SvOK(left) && SvTYPE(left) <= SVt_PVMG)
 		sv_setpv(left, "");	/* Suppress warning. */