Re: unicode support and perl [ID 20000901.097]

Message-Id: <200009152025.QAA18540@Orb.Nashua.NH.US>

p4raw-id: //depot/perl@7099

diff --git a/pp_hot.c b/pp_hot.c
index ba81805..17710d5 100644 (file)
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -163,6 +163,10 @@ PP(pp_concat)
                /* Take a copy since we're about to overwrite TARG */
                olds = s = (U8*)savepvn((char*)s, len);
            }
+           if (SvGMAGICAL(left))
+               mg_get(left);
+           else if (!SvOK(left) && SvTYPE(left) <= SVt_PVMG)
+               sv_setpv(left, "");     /* Suppress warning. */
             l = (U8*)SvPV(left, targlen);
             if (TARG != left)
                 sv_setpvn(TARG, (char*)l, targlen);