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: use binmode so test suite works with ActivePerl

git-svn-id: svn+q:///qpdf/trunk@801 71b93d88-0707-0410-a8cf-f5a4172ac649
---
 libtests/qtest/flate.test | 1 +
 1 file changed, 1 insertion(+)

(limited to 'libtests/qtest/flate.test')

diff --git a/libtests/qtest/flate.test b/libtests/qtest/flate.test
index fe850b3e..b7acae60 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";
-- 
cgit v1.2.3-54-g00ecf