diff options
| author | Spider Boardman <spider@orb.nashua.nh.us> | 2000-09-15 12:25:30 -0400 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2000-09-30 12:49:35 +0000 |
| commit | 07c7e8c5bc23027e439932d9efc7f28a0fba2a98 (patch) | |
| tree | 7b7ba7b41dd84f9bb493d7ce6eed6e7c2d62ac74 /pp_hot.c | |
| parent | 76be56bccb2fd29f88a574150eb43ba6f16612c6 (diff) | |
| download | perl-07c7e8c5bc23027e439932d9efc7f28a0fba2a98.tar.gz | |
Re: unicode support and perl [ID 20000901.097]
Message-Id: <200009152025.QAA18540@Orb.Nashua.NH.US>
p4raw-id: //depot/perl@7099
Diffstat (limited to 'pp_hot.c')
| -rw-r--r-- | pp_hot.c | 4 |
1 files changed, 4 insertions, 0 deletions
@@ -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); |