Change 13892 by jhi@alpha on 2001/12/26 19:10:15
Subject: Re: [PATCH] Re: [ PATCH ] Cygwin groups.t (PLEASE CHECK)
From: Nicholas Clark <[EMAIL PROTECTED]>
Date: Wed, 26 Dec 2001 19:19:47 +0000
Message-ID: <[EMAIL PROTECTED]>
Use report_evil_fh().
Affected files ...
.... //depot/perl/doio.c#185 edit
Differences ...
==== //depot/perl/doio.c#185 (text) ====
Index: perl/doio.c
--- perl/doio.c.~1~ Wed Dec 26 12:15:06 2001
+++ perl/doio.c Wed Dec 26 12:15:06 2001
@@ -951,21 +951,7 @@
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)) {
End of Patch.
