diff options
Diffstat (limited to 'ext/Digest/MD5/t/files.t')
| -rw-r--r-- | ext/Digest/MD5/t/files.t | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/ext/Digest/MD5/t/files.t b/ext/Digest/MD5/t/files.t index 650121f517..34ef9e0dea 100644 --- a/ext/Digest/MD5/t/files.t +++ b/ext/Digest/MD5/t/files.t @@ -175,6 +175,7 @@ sub digest_file #print "$file $method\n"; open(FILE, $file) or die "Can't open $file: $!"; + eval { binmode(FILE, ":bytes") }; # Perl 5.8.0+ only my $digest = Digest::MD5->new->addfile(*FILE)->$method(); close(FILE); @@ -186,6 +187,7 @@ sub cat_file my($file) = @_; local $/; # slurp open(FILE, $file) or die "Can't open $file: $!"; + eval { binmode(FILE, ":bytes") }; # Perl 5.8.0+ only my $tmp = <FILE>; close(FILE); $tmp; |