From bc47d134763353c4861565c9c915beb723cedfa4 Mon Sep 17 00:00:00 2001
From: Christian Walde <walde.christian@googlemail.com>
Date: Sun, 26 Jun 2011 19:35:23 +0200
Subject: [PATCH] Packed indexes need to be read raw.

---
 lib/Git/PurePerl/PackIndex.pm | 1 +
 1 file changed, 1 insertion(+)

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);