From a73e8557ffb104ab62198e9838714843724d84e5 Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 12 Mar 2003 10:59:03 +0000
Subject: Another finding by IRIX cc: non-void function sv_cat_decode() should
 return a value.

p4raw-id: //depot/perl@18954
---
 sv.c | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'sv.c')

diff --git a/sv.c b/sv.c
index 955153a8bb..4f6d59c46a 100644
--- a/sv.c
+++ b/sv.c
@@ -11499,8 +11499,8 @@ bool
 Perl_sv_cat_decode(pTHX_ SV *dsv, SV *encoding,
 		   SV *ssv, int *offset, char *tstr, int tlen)
 {
+    bool ret = FALSE;
     if (SvPOK(ssv) && SvPOK(dsv) && SvROK(encoding) && offset) {
-        bool ret = FALSE;
 	SV *offsv;
 	dSP;
 	ENTER;
@@ -11521,8 +11521,9 @@ Perl_sv_cat_decode(pTHX_ SV *dsv, SV *encoding,
 	PUTBACK;
 	FREETMPS;
 	LEAVE;
-	return ret;
     }
-    Perl_croak(aTHX_ "Invalid argument to sv_cat_decode.");
+    else
+        Perl_croak(aTHX_ "Invalid argument to sv_cat_decode");
+    return ret;
 }
 
-- 
cgit v1.2.1