diff options
| author | Alexander Foken <unknown> | 2005-06-10 12:46:41 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-06-16 12:54:18 +0000 |
| commit | 1e1a20c3fc7b8f9a827116e0a92dcb488237db0e (patch) | |
| tree | e3811ddd00ef48cf1d3eee835a484a6e20967e7d /ext | |
| parent | e924671956677262ba52eda2982a42e04dbdf67c (diff) | |
| download | perl-1e1a20c3fc7b8f9a827116e0a92dcb488237db0e.tar.gz | |
[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
Diffstat (limited to 'ext')
| -rw-r--r-- | ext/IO/lib/IO/File.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ext/IO/lib/IO/File.pm b/ext/IO/lib/IO/File.pm index 2f0ceff919..4f537714c5 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) = @_; |