use binmode so test suite works with ActivePerl

git-svn-id: svn+q:///qpdf/trunk@801 71b93d88-0707-0410-a8cf-f5a4172ac649

use binmode so test suite works with ActivePerl
git-svn-id: svn+q:///qpdf/trunk@801 71b93d88-0707-0410-a8cf-f5a4172ac649
Jay Berkenbilt
1 parent 3334cdf3
Showing 1 changed file with 1 additions and 0 deletions
libtests/qtest/flate.test
@@ -16,6 +16,7 @@ my $td = new TestDriver(&#39;flate&#39;);
 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";