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/op.c b/op.c
index edf300cdf9..8107a84c7e 100644
--- a/op.c
+++ b/op.c
@@ -4845,6 +4845,11 @@ Perl_oopsCV(pTHX_ OP *o)
     Perl_croak(aTHX_ "NOT IMPL LINE %d",__LINE__);
     /* STUB */
     (void)o;
+#ifndef HASATTRIBUTE
+    /* No __attribute__, so the compiler doesn't know that croak never returns
+     */
+    return 0;
+#endif
 }
 
 OP *