From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 18 Jun 2002 21:36:21 +0000 (+0000)
Subject: This is probably the reason for the GW failures.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=19f0e64f26de3f28bf51141c77747a9242abc479;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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;