diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-03-22 12:51:20 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-03-22 12:51:20 +0000 |
| commit | a04651f440b69a3f6af9f5fcf427068253775945 (patch) | |
| tree | 5dbcd1dea69dc0d8e6284cb3f77dc875903e1373 /perl.c | |
| parent | a00b5bd33cb12556305f4526d4870e67e2ca9517 (diff) | |
| download | perl-a04651f440b69a3f6af9f5fcf427068253775945.tar.gz | |
Re-instate warnings for 'eof STDOUT' etc. by marking STD* as appropriate IoTYPE.
p4raw-id: //depot/perlio@9296
Diffstat (limited to 'perl.c')
| -rw-r--r-- | perl.c | 3 |
1 files changed, 3 insertions, 0 deletions
@@ -3247,6 +3247,7 @@ S_init_predump_symbols(pTHX) PL_stdingv = gv_fetchpv("STDIN",TRUE, SVt_PVIO); GvMULTI_on(PL_stdingv); io = GvIOp(PL_stdingv); + IoTYPE(io) = IoTYPE_RDONLY; IoIFP(io) = PerlIO_stdin(); tmpgv = gv_fetchpv("stdin",TRUE, SVt_PV); GvMULTI_on(tmpgv); @@ -3255,6 +3256,7 @@ S_init_predump_symbols(pTHX) tmpgv = gv_fetchpv("STDOUT",TRUE, SVt_PVIO); GvMULTI_on(tmpgv); io = GvIOp(tmpgv); + IoTYPE(io) = IoTYPE_WRONLY; IoOFP(io) = IoIFP(io) = PerlIO_stdout(); setdefout(tmpgv); tmpgv = gv_fetchpv("stdout",TRUE, SVt_PV); @@ -3264,6 +3266,7 @@ S_init_predump_symbols(pTHX) PL_stderrgv = gv_fetchpv("STDERR",TRUE, SVt_PVIO); GvMULTI_on(PL_stderrgv); io = GvIOp(PL_stderrgv); + IoTYPE(io) = IoTYPE_WRONLY; IoOFP(io) = IoIFP(io) = PerlIO_stderr(); tmpgv = gv_fetchpv("stderr",TRUE, SVt_PV); GvMULTI_on(tmpgv); |