summaryrefslogtreecommitdiff
path: root/sv.c
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2002-02-25 00:01:13 +0000
committerJarkko Hietaniemi <jhi@iki.fi>2002-02-25 00:01:13 +0000
commit7adcf7db342e2a16c8b5be92bd750017f3629b95 (patch)
tree7dd775a0ffe9f2209b70e461aa6dd4d90dc3cafd /sv.c
parent6050d10e6008e3d6e86de76c85d93bf5c06336aa (diff)
downloadperl-7adcf7db342e2a16c8b5be92bd750017f3629b95.tar.gz
SvSetSV() is not returnable, but that's okay since
sv_copypv() returns void. p4raw-id: //depot/perl@14858
Diffstat (limited to 'sv.c')
-rw-r--r--sv.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/sv.c b/sv.c
index 376418b8ff..6fab2eeeaf 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);
}
}