diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2000-10-10 23:30:46 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-10-10 23:30:46 +0000 |
| commit | 47ae9dc79115de479a02ff8d99389c8fd39080ba (patch) | |
| tree | c393ea0236fb1b2d7e7324880dc420f37794bd4d /pp_hot.c | |
| parent | 31067593099812ab8537bff185cb527dc1190f67 (diff) | |
| download | perl-47ae9dc79115de479a02ff8d99389c8fd39080ba.tar.gz | |
(Retracted by #7200.)
p4raw-id: //depot/perl@7198
Diffstat (limited to 'pp_hot.c')
| -rw-r--r-- | pp_hot.c | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -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. */ |