Attribute configuration

Message-ID: <20050519173256.GA29039@petdance.com>

p4raw-id: //depot/perl@24508

1 files changed, 1 insertions, 6 deletions

diff --git a/mg.c b/mg.c
index baad04f718..1611d1fb7d 100644
--- a/mg.c
+++ b/mg.c
@@ -468,12 +468,7 @@ Perl_magic_regdatum_set(pTHX_ SV *sv, MAGIC *mg)
 {
     (void)sv; (void)mg;
     Perl_croak(aTHX_ PL_no_modify);
-    /* NOT REACHED */
-#ifndef HASATTRIBUTE_NORETURN
-    /* No __attribute__((noreturn)), so the compiler doesn't know that
-     * croak never returns. */
-    return 0;
-#endif
+    NORETURN_FUNCTION_END;
 }
 
 U32