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