diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-06-10 23:24:42 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-06-10 23:24:42 +0000 |
| commit | cb3fb9b75cd1198d350357a3c5e4acd60bf2ecbf (patch) | |
| tree | fbedf74a5aad4c7d7bb0833776bbe9ece458a6e0 /ext/Digest/MD5 | |
| parent | 1ddff52a1281532cbd0c62e75300cd5f2fb50094 (diff) | |
| download | perl-cb3fb9b75cd1198d350357a3c5e4acd60bf2ecbf.tar.gz | |
Now that binmode(FH) does implicit ":bytes" revisit
the failing tests. The worrisome one is the Digest::MD5
test-- how will it fare in CRLF lands now?
p4raw-id: //depot/perl@17175
Diffstat (limited to 'ext/Digest/MD5')
| -rw-r--r-- | ext/Digest/MD5/t/files.t | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/ext/Digest/MD5/t/files.t b/ext/Digest/MD5/t/files.t index 34ef9e0dea..b49149ccb9 100644 --- a/ext/Digest/MD5/t/files.t +++ b/ext/Digest/MD5/t/files.t @@ -175,7 +175,6 @@ 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); @@ -187,7 +186,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 + binmode(FILE); my $tmp = <FILE>; close(FILE); $tmp; |