summaryrefslogtreecommitdiff
path: root/doio.c
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2001-12-26 19:19:47 +0000
committerJarkko Hietaniemi <jhi@iki.fi>2001-12-26 19:10:15 +0000
commit06bcfee821c1531480dd1ac6ca26709a32b7e93a (patch)
tree966550af0373b282e84f808850976f3f231ab920 /doio.c
parent9d6eb86e4075182b9cda16d90e5d387c1537d687 (diff)
downloadperl-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.c16
1 files changed, 1 insertions, 15 deletions
diff --git a/doio.c b/doio.c
index 4e977b7bdf..32427eb232 100644
--- a/doio.c
+++ b/doio.c
@@ -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)) {