From 47ae9dc79115de479a02ff8d99389c8fd39080ba Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Tue, 10 Oct 2000 23:30:46 +0000 Subject: [PATCH] (Retracted by #7200.) p4raw-id: //depot/perl@7198 --- pp_hot.c | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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. */ -- 2.7.4