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

function is "noreturn".

p4raw-id: //depot/perl@24082

1 files changed, 4 insertions, 0 deletions

diff --git a/scope.c b/scope.c
index 9bb89b7ac1..315fdc0596 100644
--- a/scope.c
+++ b/scope.c
@@ -467,7 +467,11 @@ Perl_save_threadsv(pTHX_ PADOFFSET i)
 {
     Perl_croak(aTHX_ "panic: save_threadsv called in non-threaded perl");
     (void)i;
+#ifndef HASATTRIBUTE
+    /* No __attribute__, so the compiler doesn't know that croak never returns
+     */
     return 0;
+#endif
 }
 
 void