summaryrefslogtreecommitdiff
path: root/pp_hot.c
diff options
context:
space:
mode:
Diffstat (limited to 'pp_hot.c')
-rw-r--r--pp_hot.c6
1 files changed, 2 insertions, 4 deletions
diff --git a/pp_hot.c b/pp_hot.c
index d6a7f04da2..3f85116a31 100644
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -173,10 +173,8 @@ PP(pp_concat)
olds = s = (U8*)savepvn((char*)s, len);
}
if (!SvOK(left) && SvTYPE(left) <= SVt_PVMG) {
- if (SvREADONLY(left)) {
- left = sv_2mortal(newSVpvn("", 0));
- left_utf = FALSE;
- }
+ if (SvREADONLY(left))
+ left = sv_2mortal(newSVsv(left));
else
sv_setpv(left, ""); /* Suppress warning. */
}