perlfunc.pod grammar fixes

[p5sagit/p5-mst-13.2.git] / doio.c

diff --git a/doio.c b/doio.c
index e9c40a7..73217bf 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 {
@@ -1835,14 +1835,14 @@ nothing in the core.
            s = SvPV_nolen_const(*mark);
            APPLY_TAINT_PROPER();
            if (PL_euid || PL_unsafe) {
-               if (UNLINK(s))
+               if (UNLINK((char *)s))
                    tot--;
            }
            else {      /* don't let root wipe out directories without -U */
                if (PerlLIO_lstat(s,&PL_statbuf) < 0 || S_ISDIR(PL_statbuf.st_mode))
                    tot--;
                else {
-                   if (UNLINK(s))
+                   if (UNLINK((char *)s))
                        tot--;
                }
            }