From: Spider Boardman <spider@orb.nashua.nh.us>
Date: Sat, 30 Mar 2002 21:37:37 +0000 (-0500)
Subject: Bad socketpair.t can hang anywhere
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=208b703c62c49f75ead6cc48e0df93536ff90baf;p=p5sagit%2Fp5-mst-13.2.git

Bad socketpair.t can hang anywhere
Message-Id: <200203310237.VAA10274@Orb.Nashua.NH.US>

p4raw-id: //depot/perl@15632
---

diff --git a/ext/Socket/socketpair.t b/ext/Socket/socketpair.t
index 6549eae..1d6fc8b 100644
--- a/ext/Socket/socketpair.t
+++ b/ext/Socket/socketpair.t
@@ -32,7 +32,7 @@ BEGIN {
         $SIG{INT} = sub {exit 0}; # You have 60 seconds. Your time starts now.
         my $must_finish_by = time + 60;
         my $remaining;
-        while ($remaining = time - $must_finish_by) {
+        while (($remaining = $must_finish_by - time) > 0) {
           sleep $remaining;
         }
         warn "Something unexpectedly hung during testing";