diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-12-27 11:11:51 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-12-27 11:11:51 +0000 |
| commit | c647d955ec5be212cbda9695b83885c68fc47cff (patch) | |
| tree | 275e3b0e7ea6a0cd9cb7edbbd4bc3ab69f34a17f /doio.c | |
| parent | 3da9a137807e4f1acaf9cb3024a6cc5fbd119b9f (diff) | |
| parent | 3853ea39bf7dbf26f8bbd5b11cd6ca8f77b7a6b7 (diff) | |
| download | perl-c647d955ec5be212cbda9695b83885c68fc47cff.tar.gz | |
Integrate mainline
p4raw-id: //depot/perlio@13900
Diffstat (limited to 'doio.c')
| -rw-r--r-- | doio.c | 16 |
1 files changed, 1 insertions, 15 deletions
@@ -951,21 +951,7 @@ Perl_do_eof(pTHX_ GV *gv) if (!io) return TRUE; else if (ckWARN(WARN_IO) && (IoTYPE(io) == IoTYPE_WRONLY)) - { - /* integrate to report_evil_fh()? */ - char *name = NULL; - if (isGV(gv)) { - SV* sv = sv_newmortal(); - gv_efullname4(sv, gv, Nullch, FALSE); - name = SvPV_nolen(sv); - } - if (name && *name) - Perl_warner(aTHX_ WARN_IO, - "Filehandle %s opened only for output", name); - else - Perl_warner(aTHX_ WARN_IO, - "Filehandle opened only for output"); - } + report_evil_fh(gv, io, OP_phoney_OUTPUT_ONLY); while (IoIFP(io)) { |