From: Steve Hay <SteveHay@planit.com>
Date: Mon, 18 Jul 2005 09:54:58 +0000 (+0000)
Subject: Silence compiler warning following change 25157
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b9c6780e44463d9474a65ddac5288e8488b8240a;p=p5sagit%2Fp5-mst-13.2.git

Silence compiler warning following change 25157

(DIE returns Perl_die's return value which is an OP*, not the I32
that Perl_apply is expected to return)

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

diff --git a/doio.c b/doio.c
index e9c40a7..9cd1326 100644
--- a/doio.c
+++ b/doio.c
@@ -1688,7 +1688,7 @@ Perl_apply(pTHX_ I32 type, register SV **mark, register SV **sp)
 			if (fchmod(PerlIO_fileno(IoIFP(GvIOn(gv))), val))
 			    tot--;
 #else
-			DIE(aTHX_ PL_no_func, "fchmod");
+			Perl_die(aTHX_ PL_no_func, "fchmod");
 #endif
 		    }
 		    else {
@@ -1729,7 +1729,7 @@ Perl_apply(pTHX_ I32 type, register SV **mark, register SV **sp)
 			if (fchown(PerlIO_fileno(IoIFP(GvIOn(gv))), val, val2))
 			    tot--;
 #else
-			DIE(aTHX_ PL_no_func, "fchown");
+			Perl_die(aTHX_ PL_no_func, "fchown");
 #endif
 		    }
 		    else {