From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 8 Jul 2003 09:18:19 +0000 (+0000)
Subject: In 5.8.x, fast stdio places still do use stdio.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=72c58aaf3b55c3daa0d6b841f9ea19a5581af438;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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";