Change 20058: Refashioned #20055: we cannot trust stdio to fail here.

[Jarkko Hietaniemi]

Change 20058 by [EMAIL PROTECTED] on 2003/07/07 14:12:27

        Refashioned #20055: we cannot trust stdio to fail here.

Affected files ...

... //depot/perl/ext/Digest/MD5/t/badfile.t#6 edit

Differences ...

==== //depot/perl/ext/Digest/MD5/t/badfile.t#6 (text) ====
Index: perl/ext/Digest/MD5/t/badfile.t
--- perl/ext/Digest/MD5/t/badfile.t#5~20057~    Mon Jul  7 07:08:16 2003
+++ perl/ext/Digest/MD5/t/badfile.t     Mon Jul  7 07:12:27 2003
@@ -4,6 +4,7 @@
 print "1..3\n";
 
 use Digest::MD5 ();
+use Config;
 
 $md5 = Digest::MD5->new;
 
@@ -25,7 +26,13 @@
 eval {
     $md5->addfile(*BAR);
 };
-print "not " unless $@ =~ /^Reading from filehandle failed at/;
+# Some stdio implementations don't find reading from
+# write-only filehandle to be a problem.  Therefore we
+# cannot expect this to fail reliably with stdio.
+my $stdio = !exists  $Config{useperlio} ||
+           !defined $Config{useperlio} ||
+           (exists $ENV{PERLIO} && $ENV{PERLIO} eq 'stdio');
+print "not " unless $@ =~ /^Reading from filehandle failed at/ || $stdio;
 print "ok 3\n";
 
 close(BAR);
End of Patch.