diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-07-08 09:18:19 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-07-08 09:18:19 +0000 |
| commit | 72c58aaf3b55c3daa0d6b841f9ea19a5581af438 (patch) | |
| tree | acd58f21d8b0f9dd1a014232fc23d1af29cde61d /ext/Digest | |
| parent | 67920cb215a6d139ad318fbf8eb54903e101dde5 (diff) | |
| download | perl-72c58aaf3b55c3daa0d6b841f9ea19a5581af438.tar.gz | |
In 5.8.x, fast stdio places still do use stdio.
p4raw-id: //depot/perl@20071
Diffstat (limited to 'ext/Digest')
| -rw-r--r-- | ext/Digest/MD5/t/badfile.t | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/ext/Digest/MD5/t/badfile.t b/ext/Digest/MD5/t/badfile.t index 90a7857ac3..4b3a331275 100644 --- a/ext/Digest/MD5/t/badfile.t +++ b/ext/Digest/MD5/t/badfile.t @@ -31,7 +31,8 @@ eval { # cannot expect this to fail reliably with stdio. my $stdio = !exists $Config{useperlio} || !defined $Config{useperlio} || - (exists $ENV{PERLIO} && $ENV{PERLIO} eq 'stdio'); + (exists $ENV{PERLIO} && $ENV{PERLIO} eq 'stdio') || + defined $Config{usefaststdio}; print "not " unless $@ =~ /^Reading from filehandle failed at/ || $stdio; print "ok 3\n"; |