use 5.014000;
use strict;
use warnings;
-our $VERSION = '0.002_001';
+our $VERSION = '0.002002';
use constant MAGIC => "!-1SLOB\x1F";
if (ref $path eq 'IO') {
$fh = $path
} else {
- open $fh, '<', $path or croak "Cannot open \"$path\": $!"
+ open $fh, '<', $path or croak "Cannot open \"$path\": $!";
+ binmode $fh;
}
my $self = bless {path => $path, fh => $fh}, $class;
$self->{header} = $self->read_header;