Re: The long awaited feature ...

Message-ID: <20001217123156.A3891@deep-dark-truthful-mirror.perlhacker.org>

Add a warning to binmode() about using bad filehandles
(can happen e.g. if someone forgets the filehandle argument)

p4raw-id: //depot/perl@8145

1 files changed, 4 insertions, 2 deletions

diff --git a/pp_sys.c b/pp_sys.c
index 7d6386e3f0..0c834ca60e 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -709,8 +709,10 @@ PP(pp_binmode)
     }
 
     EXTEND(SP, 1);
-    if (!(io = GvIO(gv)) || !(fp = IoIFP(io)))
-	RETPUSHUNDEF;
+    if (!(io = GvIO(gv)) || !(fp = IoIFP(io))) {
+        report_evil_fh(gv, io, PL_op->op_type);
+        RETPUSHUNDEF;
+    }
 
     if (discp) {
 	names = SvPV(discp,len);