From c46b27b898d5d5e10f6b18bc5d06b1a5d9e76a3b Mon Sep 17 00:00:00 2001 From: Hugo van der Sanden Date: Fri, 22 Jun 2001 02:19:08 +0100 Subject: [PATCH] Re: [ID 20010621.002] UnixWare 7.1.1 and Perl-5.6.1 problems Message-Id: <200106220019.BAA03365@crypt.compulink.co.uk> (Skip tests if accept() failed) p4raw-id: //depot/perl@11543 --- ext/IO/lib/IO/t/io_unix.t | 21 ++++++++++++++------- 1 file changed, 14 insertions(+), 7 deletions(-) diff --git a/ext/IO/lib/IO/t/io_unix.t b/ext/IO/lib/IO/t/io_unix.t index c996e6d..f120c97 100644 --- a/ext/IO/lib/IO/t/io_unix.t +++ b/ext/IO/lib/IO/t/io_unix.t @@ -60,19 +60,26 @@ print "ok 1\n"; 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 "$!"; -- 2.7.4