This is probably the reason for the GW failures.

p4raw-id: //depot/perl@17292

diff --git a/ext/Digest/MD5/t/files.t b/ext/Digest/MD5/t/files.t
index b49149c..bf8aa06 100644 (file)
--- 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;