diff options
| author | John Peacock <jpeacock@rowman.com> | 2002-02-24 17:08:28 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-02-25 03:02:23 +0000 |
| commit | 03a2c403184ad0c39d338445dfc5079fdd31ec6b (patch) | |
| tree | c461e5c7eb4231eca66a7c5754da0a011607ba9d /sv.c | |
| parent | 7adcf7db342e2a16c8b5be92bd750017f3629b95 (diff) | |
| download | perl-03a2c403184ad0c39d338445dfc5079fdd31ec6b.tar.gz | |
Re: [PATCH] Re: Copying PV only with possible UTF-8 characters
Message-ID: <3C79AAAC.6060903@rowman.com>
p4raw-id: //depot/perl@14859
Diffstat (limited to 'sv.c')
| -rw-r--r-- | sv.c | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -3168,8 +3168,10 @@ Perl_sv_copypv(pTHX_ SV *dsv, register SV *ssv) if ( SvTHINKFIRST(ssv) && SvROK(ssv) && SvAMAGIC(ssv) ) { tmpsv = AMG_CALLun(ssv,string); - if (SvTYPE(tmpsv) != SVt_RV || (SvRV(tmpsv) != SvRV(ssv))) + if (SvTYPE(tmpsv) != SVt_RV || (SvRV(tmpsv) != SvRV(ssv))) { SvSetSV(dsv,tmpsv); + return; + } } { STRLEN len; |