Change 17292: This is probably the reason for the GW failures.

[Jarkko Hietaniemi]

Change 17292 by jhi@alpha on 2002/06/18 21:36:21

        This is probably the reason for the GW failures.

Affected files ...

.... //depot/perl/ext/Digest/MD5/t/files.t#19 edit

Differences ...

==== //depot/perl/ext/Digest/MD5/t/files.t#19 (text) ====
Index: perl/ext/Digest/MD5/t/files.t
--- perl/ext/Digest/MD5/t/files.t#18~17175~     Mon Jun 10 16:24:42 2002
+++ perl/ext/Digest/MD5/t/files.t       Tue Jun 18 14:36:21 2002
@@ -186,7 +186,10 @@
     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;
End of Patch.