read the test file in binary mode

tonycoz · Aug 6, 2010 · 8c7b502 · 8c7b502
1 parent fb9fb81
commit 8c7b502
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/t/t104ppm.t b/t/t104ppm.t
@@ -572,6 +572,7 @@ print "# check error handling\n";
   {
     ok(open(FH, "< testimg/penguin-base.ppm"), "open test file")
       or skip("couldn't open data source", 4);
+    binmode FH;
     my $imdata = do { local $/; <FH> };
     close FH;
     ok(length $imdata, "we got the data");