diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-04-17 21:12:34 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-04-17 21:12:34 +0000 |
| commit | e95392e36d6284654a4a8965874724aa53b96ee5 (patch) | |
| tree | 8ab425ada9144d9be801b9c01ca0d598c124433c /t | |
| parent | 2a8c1a1c1d4116c0566e41873c2e733d9b238e92 (diff) | |
| download | perl-e95392e36d6284654a4a8965874724aa53b96ee5.tar.gz | |
With -Uuseperlio the error might be EBADF.
p4raw-id: //depot/perl@15984
Diffstat (limited to 't')
| -rw-r--r-- | t/io/full.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/t/io/full.t b/t/io/full.t index f1b31ff9c1..c4aa8f0353 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 { |