From 879a1f87e50adadca8f11fc491c8041eaf77a10d Mon Sep 17 00:00:00 2001
From: Fredrik Noring <noring@nocrew.org>
Date: Tue, 23 Feb 1999 19:05:36 +0100
Subject: [PATCH] Removed possible hanging problems.

Rev: lib/modules/Yabu.pmod/module.pmod:1.8
---
 lib/modules/Yabu.pmod/module.pmod | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/lib/modules/Yabu.pmod/module.pmod b/lib/modules/Yabu.pmod/module.pmod
index 754d0966ab..104352d058 100644
--- a/lib/modules/Yabu.pmod/module.pmod
+++ b/lib/modules/Yabu.pmod/module.pmod
@@ -4,7 +4,7 @@
  * associated with a unique key.
  */
 
-constant cvs_id = "$Id: module.pmod,v 1.7 1999/02/15 00:03:35 noring Exp $";
+constant cvs_id = "$Id: module.pmod,v 1.8 1999/02/23 18:05:36 noring Exp $";
 
 #define ERR(msg) throw(({ "(Yabu) "+msg+"\n", backtrace() }))
 #define WARN(msg) werror(msg)
@@ -53,7 +53,7 @@ static private class ProcessLock {
   {
     lock_file = _lock_file;
 
-    while(1) {
+    for(int tryout = 0; tryout < 3; tryout++) {
       object f = Stdio.File();
       
       if(f->open(lock_file, "cxw")) {
@@ -82,6 +82,7 @@ static private class ProcessLock {
       rm(lock_file);
       sleep(10);
     }
+    ERR("Lock tryout error (insufficient permissions?)");
   }
 }
 
-- 
GitLab