From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sat, 26 May 2001 22:38:16 +0000 (+0000)
Subject: return clauses are nice.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=36f65ada8976e23c1222137b59696bff2b63e8f6;p=p5sagit%2Fp5-mst-13.2.git

return clauses are nice.

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

diff --git a/sv.c b/sv.c
index 659398c..f615fe5 100644
--- a/sv.c
+++ b/sv.c
@@ -2643,7 +2643,7 @@ uiv_2buf(char *buf, IV iv, UV uv, int is_uv, char **peob)
 char *
 Perl_sv_2pv(pTHX_ register SV *sv, STRLEN *lp)
 {
-    sv_2pv_flags(sv, lp, SV_GMAGIC);
+    return sv_2pv_flags(sv, lp, SV_GMAGIC);
 }
 
 char *
@@ -2972,7 +2972,7 @@ if all the bytes have hibit clear.
 STRLEN
 Perl_sv_utf8_upgrade(pTHX_ register SV *sv)
 {
-    sv_utf8_upgrade_flags(sv, SV_GMAGIC);
+    return sv_utf8_upgrade_flags(sv, SV_GMAGIC);
 }
 
 /*
@@ -6253,7 +6253,7 @@ Get a sensible string out of the SV somehow.
 char *
 Perl_sv_pvn_force(pTHX_ SV *sv, STRLEN *lp)
 {
-    sv_pvn_force_flags(sv, lp, SV_GMAGIC);
+    return sv_pvn_force_flags(sv, lp, SV_GMAGIC);
 }
 
 /*