This is probably the reason for the GW failures.

p4raw-id: //depot/perl@17292

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;