From: Gurusamy Sarathy <gsar@cpan.org>
Date: Thu, 4 Mar 1999 04:36:08 +0000 (+0000)
Subject: error-check for accept() test
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e197ebb9c8f953fa5584b2d8bace5cdcf44d3e12;p=p5sagit%2Fp5-mst-13.2.git

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