[perl #36237] IO::File $fh->binmode($layer) is broken

From: "Alexander Foken" (via RT) <perlbug-followup@perl.org>
Message-ID: <rt-3.0.11-36237-115536.13.400290704223@perl.org>

and bump version number

p4raw-id: //depot/perl@24869

diff --git a/ext/IO/lib/IO/File.pm b/ext/IO/lib/IO/File.pm
index 2f0ceff..4f53771 100644 (file)
--- a/ext/IO/lib/IO/File.pm
+++ b/ext/IO/lib/IO/File.pm
@@ -137,7 +137,7 @@ require Exporter;
 
 @ISA = qw(IO::Handle IO::Seekable Exporter);
 
-$VERSION = "1.11";
+$VERSION = "1.12";
 
 @EXPORT = @IO::Seekable::EXPORT;
 
@@ -197,7 +197,7 @@ sub open {
 ##
 
 sub binmode {
-    ( @_ == 0 or @_ == 1 ) or croak 'usage $fh->binmode([LAYER])';
+    ( @_ == 1 or @_ == 2 ) or croak 'usage $fh->binmode([LAYER])';
 
     my($fh, $layer) = @_;