Change 20071 by [EMAIL PROTECTED] on 2003/07/08 09:18:19
In 5.8.x, fast stdio places still do use stdio.
Affected files ...
... //depot/perl/ext/Digest/MD5/t/badfile.t#7 edit
Differences ...
==== //depot/perl/ext/Digest/MD5/t/badfile.t#7 (text) ====
Index: perl/ext/Digest/MD5/t/badfile.t
--- perl/ext/Digest/MD5/t/badfile.t#6~20058~ Mon Jul 7 07:12:27 2003
+++ perl/ext/Digest/MD5/t/badfile.t Tue Jul 8 02:18:19 2003
@@ -31,7 +31,8 @@
# 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";
End of Patch.
