diff options
Diffstat (limited to 'doio.c')
| -rw-r--r-- | doio.c | 10 |
1 files changed, 6 insertions, 4 deletions
@@ -506,7 +506,7 @@ nextargv(register GV *gv) (void)fchown(lastfd,fileuid,filegid); #else #ifdef HAS_CHOWN - (void)chown(oldname,fileuid,filegid); + (void)PerlLIO_chown(oldname,fileuid,filegid); #endif #endif } @@ -744,7 +744,7 @@ do_binmode(PerlIO *fp, int iotype, int flag) * document this anywhere). GSAR 97-5-24 */ PerlIO_seek(fp,0L,0); - fp->flags |= _F_BIN; + ((FILE*)fp)->flags |= _F_BIN; #endif return 1; } @@ -1088,7 +1088,9 @@ apply(I32 type, register SV **mark, register SV **sp) SV **oldmark = mark; #define APPLY_TAINT_PROPER() \ - if (!(tainting && tainted)) {} else { goto taint_proper_label; } + STMT_START { \ + if (tainting && tainted) { goto taint_proper_label; } \ + } STMT_END /* This is a first heuristic; it doesn't catch tainting magic. */ if (tainting) { @@ -1128,7 +1130,7 @@ apply(I32 type, register SV **mark, register SV **sp) while (++mark <= sp) { char *name = SvPVx(*mark, na); APPLY_TAINT_PROPER(); - if (chown(name, val, val2)) + if (PerlLIO_chown(name, val, val2)) tot--; } } |