diff options
| -rw-r--r-- | ext/Digest/MD5/t/files.t | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/ext/Digest/MD5/t/files.t b/ext/Digest/MD5/t/files.t index b49149ccb9..bf8aa0684e 100644 --- a/ext/Digest/MD5/t/files.t +++ b/ext/Digest/MD5/t/files.t @@ -186,7 +186,10 @@ sub cat_file my($file) = @_; local $/; # slurp open(FILE, $file) or die "Can't open $file: $!"; - binmode(FILE); + + # For PerlIO (Perl 5.8.0 and later) in case of UTF-8 locales. + eval { binmode(FILE, ":bytes"); }; + my $tmp = <FILE>; close(FILE); $tmp; |