diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2000-10-17 13:06:19 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-10-17 13:06:19 +0000 |
| commit | 9f37169a395dd1065a53d9ed7840f4e757001a31 (patch) | |
| tree | 8e003aca3281d553840456d8cf7c24a1edf8f455 /pp_hot.c | |
| parent | 7564211056a3cd368b1f29533635be8c40a84570 (diff) | |
| download | perl-9f37169a395dd1065a53d9ed7840f4e757001a31.tar.gz | |
More IoTYPE sprinkling.
p4raw-id: //depot/perl@7352
Diffstat (limited to 'pp_hot.c')
| -rw-r--r-- | pp_hot.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -1339,7 +1339,7 @@ Perl_do_readline(pTHX) } else { PerlIO_rewind(tmpfp); - IoTYPE(io) = '<'; + IoTYPE(io) = IoTYPE_RDONLY; IoIFP(io) = fp = tmpfp; IoFLAGS(io) &= ~IOf_UNTAINT; /* maybe redundant */ } @@ -1393,7 +1393,7 @@ Perl_do_readline(pTHX) else if (type == OP_GLOB) SP--; else if (ckWARN(WARN_IO) /* stdout/stderr or other write fh */ - && (IoTYPE(io) == '>' || fp == PerlIO_stdout() + && (IoTYPE(io) == IoTYPE_WRONLY || fp == PerlIO_stdout() || fp == PerlIO_stderr())) { /* integrate with report_evil_fh()? */ |