This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Silence compiler warning following change 25157
authorSteve Hay <SteveHay@planit.com>
Mon, 18 Jul 2005 09:54:58 +0000 (09:54 +0000)
committerSteve Hay <SteveHay@planit.com>
Mon, 18 Jul 2005 09:54:58 +0000 (09:54 +0000)
(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

diff --git a/doio.c b/doio.c
index e9c40a7..9cd1326 100644 (file)
--- 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 {