From: Alexander Foken <unknown>
Date: Fri, 10 Jun 2005 12:46:41 +0000 (+0000)
Subject: [perl #36237] IO::File $fh->binmode($layer) is broken
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1561aefcccc1dd2d9a089d90d0ecea4315c5d0f3;p=p5sagit%2Fp5-mst-13.2.git

[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
--- 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) = @_;