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 {
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 {