From 33971c01593943c682191c11172d3bab281d6dab Mon Sep 17 00:00:00 2001
From: "Craig A. Berry" <craigberry@mac.com>
Date: Sat, 6 Oct 2012 21:42:56 -0500
Subject: Perl_sv_mortalcopy expects a return value.

Courtesy of the OpenVMS C compiler, which said:

SV *
^
%CC-I-MISSINGRETURN, Non-void function "Perl_sv_mortalcopy" does not contain a return statement.
at line number 1206 in file D0:[craig.blead]mathoms.c;1
---
 mathoms.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'mathoms.c')

diff --git a/mathoms.c b/mathoms.c
index a29f70ca11..e8d81054a0 100644
--- a/mathoms.c
+++ b/mathoms.c
@@ -1206,7 +1206,7 @@ Perl_to_utf8_upper(pTHX_ const U8 *p, U8* ustrp, STRLEN *lenp)
 SV *
 Perl_sv_mortalcopy(pTHX_ SV *const oldstr)
 {
-    Perl_sv_mortalcopy_flags(aTHX_ oldstr, SV_GMAGIC);
+    return Perl_sv_mortalcopy_flags(aTHX_ oldstr, SV_GMAGIC);
 }
 
 END_EXTERN_C
-- 
cgit v1.2.1