From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 17 Apr 2002 21:12:34 +0000 (+0000)
Subject: With -Uuseperlio the error might be EBADF.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e95392e36d6284654a4a8965874724aa53b96ee5;p=p5sagit%2Fp5-mst-13.2.git

With -Uuseperlio the error might be EBADF.

p4raw-id: //depot/perl@15984
---

diff --git a/t/io/full.t b/t/io/full.t
index f1b31ff..c4aa8f0 100644
--- a/t/io/full.t
+++ b/t/io/full.t
@@ -14,7 +14,7 @@ print FULL "I like pie.\n" ? print "ok 1\n" : print "not ok 1\n";
 # Should fail
 $z = close(FULL);
 print $z ? "not ok 2 # z=$z; $!\n" : "ok 2\n";
-print $!{ENOSPC} ? "ok 3\n" : "not ok 3\n";
+print $!{ENOSPC} || $!{EBADF} ? "ok 3\n" : "not ok 3\n";
   
 if (open FULL, "> /dev/full") {
   select FULL;   $| = 1;  select STDOUT;
@@ -22,7 +22,7 @@ if (open FULL, "> /dev/full") {
   # Should fail
   $z = print FULL "I like pie.\n";
   print $z ? "not ok 4 # z=$z; $!\n" : "ok 4\n";
-      print $!{ENOSPC} ? "ok 5\n" : "not ok 5\n";
+      print $!{ENOSPC} || $!{EBADF} ? "ok 5\n" : "not ok 5\n";
   $z = close FULL;
   print $z ? "ok 6\n" : "not ok 6 # z=$s; $!\n";
 } else {