(Retracted by #7200.)

p4raw-id: //depot/perl@7198

diff --git a/pp_hot.c b/pp_hot.c
index d5cffe5..c49e929 100644 (file)
--- 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. */