In 5.8.x, fast stdio places still do use stdio.

p4raw-id: //depot/perl@20071

diff --git a/ext/Digest/MD5/t/badfile.t b/ext/Digest/MD5/t/badfile.t
index 90a7857..4b3a331 100644 (file)
--- 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";