* Doh! The scope of $slotLock should extend to the end of the script,

  because otherwise the lock will be released at the end of the while
  loop.

1 files changed, 2 insertions, 1 deletions

diff --git a/scripts/build-remote.pl.in b/scripts/build-remote.pl.in
index 3b67555d4..2afa3af56 100755
--- a/scripts/build-remote.pl.in
+++ b/scripts/build-remote.pl.in
@@ -94,6 +94,7 @@ sub openSlotLock {
     
 
 my $hostName;
+my $slotLock;
 
 while (1) {
     
@@ -164,7 +165,7 @@ while (1) {
     my $selected = $available[0]; 
     my $machine = $selected->{machine};
 
-    my $slotLock = openSlotLock($machine, $selected->{free});
+    $slotLock = openSlotLock($machine, $selected->{free});
     flock($slotLock, LOCK_EX | LOCK_NB) or die;
     utime undef, undef, $slotLock;