diff --git a/lib/Git/PurePerl/PackIndex.pm b/lib/Git/PurePerl/PackIndex.pm index 3be3343..b69d359 100644 --- a/lib/Git/PurePerl/PackIndex.pm +++ b/lib/Git/PurePerl/PackIndex.pm @@ -28,6 +28,7 @@ sub BUILD { my $filename = $self->filename; my $fh = IO::File->new($filename) || confess($!); + $fh->binmode; $self->fh($fh); my @offsets = (0);