diff options
| author | Steve Hay <SteveHay@planit.com> | 2005-07-18 09:54:58 +0000 |
|---|---|---|
| committer | Steve Hay <SteveHay@planit.com> | 2005-07-18 09:54:58 +0000 |
| commit | b9c6780e44463d9474a65ddac5288e8488b8240a (patch) | |
| tree | cc60832cb94c4d19087c21f07bf177306604ddcd /doio.c | |
| parent | 28905b57f48ed7d8802e9adcef28d443eb2b6de4 (diff) | |
| download | perl-b9c6780e44463d9474a65ddac5288e8488b8240a.tar.gz | |
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
Diffstat (limited to 'doio.c')
| -rw-r--r-- | doio.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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 { |