From 19f0e64f26de3f28bf51141c77747a9242abc479 Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 18 Jun 2002 21:36:21 +0000
Subject: This is probably the reason for the GW failures.

p4raw-id: //depot/perl@17292
---
 ext/Digest/MD5/t/files.t | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'ext')

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;
-- 
cgit v1.2.1