From 9c104e0cdb0f702308d5e45cf660c9e049de31cb Mon Sep 17 00:00:00 2001
From: "cls%seawood.org" <cls%seawood.org@18797224-902f-48f8-a5cc-f745e15eee43>
Date: Wed, 12 Sep 2001 06:34:06 +0000
Subject: [PATCH] Drop delay between retrying locks from 1sec to 100ms and drop
 the overall timeout value from 60 secs to 10secs. Bug #59454 r=bryner
 sr=alecf

git-svn-id: svn://10.0.0.236/trunk@102794 18797224-902f-48f8-a5cc-f745e15eee43
---
 mozilla/config/mozLock.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/mozilla/config/mozLock.pm b/mozilla/config/mozLock.pm
index c19fcd32e70..ebc60b4c9fb 100644
--- a/mozilla/config/mozLock.pm
+++ b/mozilla/config/mozLock.pm
@@ -37,8 +37,8 @@ BEGIN {
 }
 
 my $lockcounter = 0;
-my $locklimit = 60;
-my $locksleep = 1;
+my $locklimit = 100;
+my $locksleep = 0.1;
 my %lockhash;
 
 # File::Spec->rel2abs appears to be broken in ActiveState Perl 5.22
@@ -84,7 +84,7 @@ sub mozLock($) {
 	    last;
 	}
 	$lockcounter++;
-	sleep($locksleep);
+	select(undef,undef,undef, $locksleep);
     }
     if ($lockcounter >= $locklimit) {
 	undef $lockhandle;