From 601e52823c5e36d9760a94596a03d0ac8c0d1cf2 Mon Sep 17 00:00:00 2001
From: Jay Berkenbilt <ejb@ql.org>
Date: Wed, 14 Oct 2009 00:31:52 +0000
Subject: [PATCH] use binmode so test suite works with ActivePerl

---
 libtests/qtest/flate.test | 1 +
 1 file changed, 1 insertion(+), 0 deletions(-)

diff --git a/libtests/qtest/flate.test b/libtests/qtest/flate.test
index fe850b3..b7acae6 100644
--- a/libtests/qtest/flate.test
+++ b/libtests/qtest/flate.test
@@ -16,6 +16,7 @@ my $td = new TestDriver('flate');
 cleanup();
 
 open(F, ">farbage") or die;
+binmode F;
 print F "q" x 10000, "\n";
 print F "w" x 10000, "\n";
 print F "e" x 10000, "\n";
--
libgit2 0.21.4