diff options
author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-04-07 14:43:59 +0000 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-04-07 14:43:59 +0000 |
commit | 9f1b100c7cce69ed98a684964aaf7c67cd5360d0 (patch) | |
tree | 2362211ef797730ce02380bbc26b8c5839e84863 /t | |
parent | 914895dfd20736cee15de499f287dd9f882816c0 (diff) | |
parent | 8e2329934bcca9c59680f6d478c3c2bc3ef7c649 (diff) | |
download | perl-9f1b100c7cce69ed98a684964aaf7c67cd5360d0.tar.gz |
Integrate perlio:
[ 9604]
Split out extension finding code from buildext.pl into FindExt.pm
Use it to get Config.pm's idea of available extensions in line
with what is built.
[ 9603]
Cleanup correction for failed :Via() layer, also set an error code.
[ 9602]
Digests in lib/md5-file.t are for text files _without_ CRLF i.e. UNIX
style. So don't use binmode() on the handles so that Win32 etc. see
same sequence and produce same digests.
[ 9601]
Allow PerlIOBase_pushed to ignore prefix on mode (e.g. sysopen's "#r")
Else it complains and so crlf layer (say) does not get pushed.
[ 9599]
Quote $VERSION in Encode.pm.
regen_config_h as requested.
p4raw-link: @9604 on //depot/perlio: 8e2329934bcca9c59680f6d478c3c2bc3ef7c649
p4raw-link: @9603 on //depot/perlio: 267cbce72d0da7af102852e6d7e0bb5c1ce41da6
p4raw-link: @9602 on //depot/perlio: 9070af9fb87632d66faa82c00ab8b5cf20323a2b
p4raw-link: @9601 on //depot/perlio: c5af4229019b04c7fa4be99300f8d9883c0bdf73
p4raw-link: @9599 on //depot/perlio: b8a524e96d5b75be96d6a98368b9c29153780cfe
p4raw-id: //depot/perl@9606
Diffstat (limited to 't')
-rw-r--r-- | t/lib/md5-file.t | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/t/lib/md5-file.t b/t/lib/md5-file.t index 861327193d..ca9cac7472 100644 --- a/t/lib/md5-file.t +++ b/t/lib/md5-file.t @@ -126,7 +126,9 @@ sub digest_file #print "$file $method\n"; open(FILE, $file) or die "Can't open $file: $!"; - binmode(FILE); +# Digests avove are generated on UNIX without CRLF +# so leave handles in text mode +# binmode(FILE); my $digest = Digest::MD5->new->addfile(*FILE)->$method(); close(FILE); @@ -138,7 +140,9 @@ sub cat_file my($file) = @_; local $/; # slurp open(FILE, $file) or die "Can't open $file: $!"; - binmode(FILE); +# Digests avove are generated on UNIX without CRLF +# so leave handles in text mode +# binmode(FILE); my $tmp = <FILE>; close(FILE); $tmp; |