diff options
| author | Dave Mitchell <davem@fdisolutions.com> | 2004-02-29 18:06:45 +0000 |
|---|---|---|
| committer | Dave Mitchell <davem@fdisolutions.com> | 2004-02-29 18:06:45 +0000 |
| commit | 1bee17442256977943a8677f330a431fa07b2d57 (patch) | |
| tree | dc0cd3e7f9948c36d1e00de01ff632527f9fbcd3 /doio.c | |
| parent | 1bba8f2aea8f893c15aa82f3aaf954d0dc6f80cf (diff) | |
| download | perl-1bee17442256977943a8677f330a431fa07b2d57.tar.gz | |
[perl #24521] make test breaks permissions on /dev/tty
perl -i could fchmod(stdin) by mistake
p4raw-id: //depot/perl@22415
Diffstat (limited to 'doio.c')
| -rw-r--r-- | doio.c | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -723,11 +723,13 @@ Perl_nextargv(pTHX_ register GV *gv) if (PL_filemode & (S_ISUID|S_ISGID)) { PerlIO_flush(IoIFP(GvIOn(PL_argvoutgv))); /* chmod must follow last write */ #ifdef HAS_FCHMOD - (void)fchmod(PL_lastfd,PL_filemode); + if (PL_lastfd != -1) + (void)fchmod(PL_lastfd,PL_filemode); #else (void)PerlLIO_chmod(PL_oldname,PL_filemode); #endif } + PL_lastfd = -1; PL_filemode = 0; if (!GvAV(gv)) return Nullfp; |