X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=sv.c;h=27150d670657910a42e5e81fd39d521083b455b1;hb=1059054db273fce406f731966b935f417b38dbd5;hp=6fab2eeeafdff447cb5444ff23e916727acd7352;hpb=7adcf7db342e2a16c8b5be92bd750017f3629b95;p=p5sagit%2Fp5-mst-13.2.git

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;