diff options
| author | Spider Boardman <spider@orb.nashua.nh.us> | 2002-03-30 16:37:37 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-03-31 03:03:11 +0000 |
| commit | 208b703c62c49f75ead6cc48e0df93536ff90baf (patch) | |
| tree | 670cd8ceb9258743756272c1829d927a38328606 /ext/Socket | |
| parent | e7d8b26b5831ffd4d8deae9b5ea0e13886d94df2 (diff) | |
| download | perl-208b703c62c49f75ead6cc48e0df93536ff90baf.tar.gz | |
Bad socketpair.t can hang anywhere
Message-Id: <200203310237.VAA10274@Orb.Nashua.NH.US>
p4raw-id: //depot/perl@15632
Diffstat (limited to 'ext/Socket')
| -rw-r--r-- | ext/Socket/socketpair.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/Socket/socketpair.t b/ext/Socket/socketpair.t index 6549eae062..1d6fc8b187 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"; |