Commit 601e52823c5e36d9760a94596a03d0ac8c0d1cf2
1 parent
3334cdf3
use binmode so test suite works with ActivePerl
git-svn-id: svn+q:///qpdf/trunk@801 71b93d88-0707-0410-a8cf-f5a4172ac649
Showing
1 changed file
with
1 additions
and
0 deletions
libtests/qtest/flate.test
| @@ -16,6 +16,7 @@ my $td = new TestDriver('flate'); | @@ -16,6 +16,7 @@ my $td = new TestDriver('flate'); | ||
| 16 | cleanup(); | 16 | cleanup(); |
| 17 | 17 | ||
| 18 | open(F, ">farbage") or die; | 18 | open(F, ">farbage") or die; |
| 19 | +binmode F; | ||
| 19 | print F "q" x 10000, "\n"; | 20 | print F "q" x 10000, "\n"; |
| 20 | print F "w" x 10000, "\n"; | 21 | print F "w" x 10000, "\n"; |
| 21 | print F "e" x 10000, "\n"; | 22 | print F "e" x 10000, "\n"; |