From: John Peacock <jpeacock@rowman.com>
Date: Sun, 24 Feb 2002 22:08:28 +0000 (-0500)
Subject: Re: [PATCH] Re: Copying PV only with possible UTF-8 characters
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=03a2c403184ad0c39d338445dfc5079fdd31ec6b;p=p5sagit%2Fp5-mst-13.2.git

Re: [PATCH] Re: Copying PV only with possible UTF-8 characters
Message-ID: <3C79AAAC.6060903@rowman.com>

p4raw-id: //depot/perl@14859
---

diff --git a/sv.c b/sv.c
index 6fab2ee..27150d6 100644
--- a/sv.c
+++ b/sv.c
@@ -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;