From: Hugo van der Sanden <hv@crypt.org>
Date: Fri, 22 Jun 2001 01:19:08 +0000 (+0100)
Subject: Re: [ID 20010621.002] UnixWare 7.1.1 and Perl-5.6.1 problems
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c46b27b898d5d5e10f6b18bc5d06b1a5d9e76a3b;p=p5sagit%2Fp5-mst-13.2.git

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
---

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 "$!";