From: Robin Barker <RMBarker@cpan.org>
Date: Fri, 13 Oct 2006 11:49:11 +0000 (+0100)
Subject: compiler warning noreturn
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4b1498031c9cdb3b51e796086a0f68b78bfd09d5;p=p5sagit%2Fp5-mst-13.2.git

compiler warning noreturn
From: "Robin Barker" <Robin.Barker@npl.co.uk>
Message-ID: <2C2E01334A940D4792B3E115F95B7226120A70@exchsvr1.npl.ad.local>

p4raw-id: //depot/perl@29007
---

diff --git a/doio.c b/doio.c
index 6afb89b..e0a1fc5 100644
--- a/doio.c
+++ b/doio.c
@@ -1288,7 +1288,12 @@ Perl_my_stat(pTHX)
                 return (PL_laststatval = PerlLIO_fstat(dirfd(IoDIRP(io)), &PL_statcache));
 #else
                 Perl_die(aTHX_ PL_no_func, "dirfd");
-                NORETURN_FUNCTION_END;
+		/* NOT REACHED */
+		return 0;
+		/* Can't use NORETURN_FUNCTION_END because Perl_die is not
+		 *     __attribute__noreturn__
+		 * Can't use DIE because that does not return an integer
+		 */
 #endif
             } else {
                 if (ckWARN2(WARN_UNOPENED,WARN_CLOSED))