From: Spider Boardman <spider@orb.nashua.nh.us>
Date: Fri, 15 Sep 2000 16:25:30 +0000 (-0400)
Subject: Re: unicode support and perl [ID 20000901.097]
X-Git-Tag: accepted/trunk/20130322.191538~34083
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=07c7e8c5bc23027e439932d9efc7f28a0fba2a98;p=platform%2Fupstream%2Fperl.git

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
--- 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);