diff options
| author | Nicholas Clark <nick@ccl4.org> | 2001-12-26 19:19:47 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-12-26 19:10:15 +0000 |
| commit | 06bcfee821c1531480dd1ac6ca26709a32b7e93a (patch) | |
| tree | 966550af0373b282e84f808850976f3f231ab920 /doio.c | |
| parent | 9d6eb86e4075182b9cda16d90e5d387c1537d687 (diff) | |
| download | perl-06bcfee821c1531480dd1ac6ca26709a32b7e93a.tar.gz | |
Re: [PATCH] Re: [ PATCH ] Cygwin groups.t (PLEASE CHECK)
Message-ID: <20011226191946.K48842@plum.flirble.org>
Use report_evil_fh().
p4raw-id: //depot/perl@13892
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)) { |