error-check for accept() test

p4raw-id: //depot/perl@3062

diff --git a/t/lib/io_sock.t b/t/lib/io_sock.t
index 79be190..edd327e 100755 (executable)
--- a/t/lib/io_sock.t
+++ b/t/lib/io_sock.t
@@ -44,7 +44,7 @@ $port = $listen->sockport;
 
 if($pid = fork()) {
 
-    $sock = $listen->accept();
+    $sock = $listen->accept() or die "accept failed: $!";
     print "ok 2\n";
 
     $sock->autoflush(1);