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 (file)
--- 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";