Change 11543 by jhi@alpha on 2001/08/01 22:46:41
Subject: Re: [ID 20010621.002] UnixWare 7.1.1 and Perl-5.6.1 problems
From: Hugo <[EMAIL PROTECTED]>
Date: Fri, 22 Jun 2001 01:19:08 +0100
Message-Id: <[EMAIL PROTECTED]>
(Skip tests if accept() failed)
Affected files ...
... //depot/perl/ext/IO/lib/IO/t/io_unix.t#3 edit
Differences ...
==== //depot/perl/ext/IO/lib/IO/t/io_unix.t#3 (text) ====
Index: perl/ext/IO/lib/IO/t/io_unix.t
--- perl/ext/IO/lib/IO/t/io_unix.t.~1~ Wed Aug 1 17:00:06 2001
+++ perl/ext/IO/lib/IO/t/io_unix.t Wed Aug 1 17:00:06 2001
@@ -60,19 +60,26 @@
if($pid = fork()) {
$sock = $listen->accept();
- print "ok 2\n";
- print $sock->getline();
+ if (defined $sock) {
+ print "ok 2\n";
- print $sock "ok 4\n";
+ print $sock->getline();
- $sock->close;
+ print $sock "ok 4\n";
- waitpid($pid,0);
- unlink($PATH) || $^O eq 'os2' || warn "Can't unlink $PATH: $!";
+ $sock->close;
- print "ok 5\n";
+ waitpid($pid,0);
+ unlink($PATH) || $^O eq 'os2' || warn "Can't unlink $PATH: $!";
+ print "ok 5\n";
+ } else {
+ print "# accept() failed: $!\n";
+ for (2..5) {
+ print "not ok $_ # accept failed\n";
+ }
+ }
} elsif(defined $pid) {
$sock = IO::Socket::UNIX->new(Peer => $PATH) or die "$!";
End of Patch.
