summaryrefslogtreecommitdiff
path: root/pp_hot.c
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2000-10-11 00:40:30 +0000
committerJarkko Hietaniemi <jhi@iki.fi>2000-10-11 00:40:30 +0000
commitc71f135dc8b214a7f302aedfa9ad2ec63490adc2 (patch)
tree70bb72bf93aff3894c0c607732bfa11b216596f0 /pp_hot.c
parentd9a374f9a3ea925f204ca6d0bdc88b9d6c09f5b9 (diff)
downloadperl-c71f135dc8b214a7f302aedfa9ad2ec63490adc2.tar.gz
The #7198 was a false alarm.
p4raw-id: //depot/perl@7200
Diffstat (limited to 'pp_hot.c')
-rw-r--r--pp_hot.c3
1 files changed, 1 insertions, 2 deletions
diff --git a/pp_hot.c b/pp_hot.c
index c49e929cce..400350d02b 100644
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -169,8 +169,7 @@ PP(pp_concat)
s = (U8*)SvPV(right,len);
if (TARG == right) {
/* Take a copy since we're about to overwrite TARG */
- olds = s;
- s = (U8*)savepvn((char*)s, len);
+ olds = s = (U8*)savepvn((char*)s, len);
}
if (!SvOK(left) && SvTYPE(left) <= SVt_PVMG)
sv_setpv(left, ""); /* Suppress warning. */