From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 25 Feb 2002 00:01:13 +0000 (+0000)
Subject: SvSetSV() is not returnable, but that's okay since
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7adcf7db342e2a16c8b5be92bd750017f3629b95;p=p5sagit%2Fp5-mst-13.2.git

SvSetSV() is not returnable, but that's okay since
sv_copypv() returns void.

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

diff --git a/sv.c b/sv.c
index 376418b..6fab2ee 100644
--- a/sv.c
+++ b/sv.c
@@ -3167,9 +3167,9 @@ Perl_sv_copypv(pTHX_ SV *dsv, register SV *ssv)
     SV *tmpsv = sv_newmortal();
 
     if ( SvTHINKFIRST(ssv) && SvROK(ssv) && SvAMAGIC(ssv) ) {
-	tmpsv=AMG_CALLun(ssv,string);
+	tmpsv = AMG_CALLun(ssv,string);
 	if (SvTYPE(tmpsv) != SVt_RV || (SvRV(tmpsv) != SvRV(ssv)))
-	    return SvSetSV(dsv,tmpsv);
+	    SvSetSV(dsv,tmpsv);
     }
     {
 	STRLEN len;
@@ -3180,7 +3180,7 @@ Perl_sv_copypv(pTHX_ SV *dsv, register SV *ssv)
 	    SvUTF8_on(tmpsv);
 	else
 	    SvUTF8_off(tmpsv);
-	return SvSetSV(dsv,tmpsv);
+	SvSetSV(dsv,tmpsv);
     }
 }