diff options
| author | Radu Greab <radu@netsoft.ro> | 2002-06-10 03:40:34 +0300 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-06-09 21:47:51 +0000 |
| commit | 6e3dd797c11bfbcd0b6afff17d355b401f2f8429 (patch) | |
| tree | 561d6707ba20458e3ca14049801819ef191f4729 /ext/Digest | |
| parent | 72e53bfb76bf1a0270ca4c38940669d58edefe78 (diff) | |
| download | perl-6e3dd797c11bfbcd0b6afff17d355b401f2f8429.tar.gz | |
[ID 20020609.007] Not OK: perl v5.8.0 +DEVEL17060 on i686-linux 2.4.18-4smp (UNINSTALLED)
Message-Id: <200206092140.g59LeYn15745@ix.netsoft.ro>
Fixes for en_US.UTF-8 failures, all but ext/PerlIO/t/fallback.t
ones which I cannot figure out.
p4raw-id: //depot/perl@17150
Diffstat (limited to 'ext/Digest')
| -rw-r--r-- | ext/Digest/MD5/t/files.t | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/ext/Digest/MD5/t/files.t b/ext/Digest/MD5/t/files.t index 650121f517..34ef9e0dea 100644 --- a/ext/Digest/MD5/t/files.t +++ b/ext/Digest/MD5/t/files.t @@ -175,6 +175,7 @@ sub digest_file #print "$file $method\n"; open(FILE, $file) or die "Can't open $file: $!"; + eval { binmode(FILE, ":bytes") }; # Perl 5.8.0+ only my $digest = Digest::MD5->new->addfile(*FILE)->$method(); close(FILE); @@ -186,6 +187,7 @@ sub cat_file my($file) = @_; local $/; # slurp open(FILE, $file) or die "Can't open $file: $!"; + eval { binmode(FILE, ":bytes") }; # Perl 5.8.0+ only my $tmp = <FILE>; close(FILE); $tmp; |