Need to return something when the compiler doesn't know that a

function is "noreturn".

p4raw-id: //depot/perl@24082

1 files changed, 5 insertions, 0 deletions

diff --git a/mg.c b/mg.c
index dfa6fc3915..f7300e477a 100644
--- a/mg.c
+++ b/mg.c
@@ -478,6 +478,11 @@ Perl_magic_regdatum_set(pTHX_ SV *sv, MAGIC *mg)
     (void)sv; (void)mg;
     Perl_croak(aTHX_ PL_no_modify);
     /* NOT REACHED */
+#ifndef HASATTRIBUTE
+    /* No __attribute__, so the compiler doesn't know that croak never returns
+     */
+    return 0;
+#endif
 }
 
 U32