From b9c6780e44463d9474a65ddac5288e8488b8240a Mon Sep 17 00:00:00 2001 From: Steve Hay Date: Mon, 18 Jul 2005 09:54:58 +0000 Subject: [PATCH] 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 --- doio.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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 { -- 2.7.4