From cfbc3eb384902a6f27329b1109e815478741f6fe Mon Sep 17 00:00:00 2001
From: ndparker <>
Date: Sun, 22 Jul 2001 15:48:07 +0000
Subject: [PATCH 1/1] improved (?) the master lock. Now, if first trial fails,
 the file will be locked very violently

---
 selfforum-cgi/shared/Lock/API.pm | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/selfforum-cgi/shared/Lock/API.pm b/selfforum-cgi/shared/Lock/API.pm
index 21f3ecf..d832289 100644
--- a/selfforum-cgi/shared/Lock/API.pm
+++ b/selfforum-cgi/shared/Lock/API.pm
@@ -142,6 +142,15 @@ sub lock {
     $self -> lock ($self->LH_EXCL, $self -> timeout('master'))   and
     $self -> _simple_lock (new Lock::Handle ($self->masterlock)) and
     return 1;
+
+    # oops..?
+    # VERY violent way to set master lock
+    #
+    $self -> release;
+
+    $self -> lock ($self->LH_EXCL, $self -> timeout('master'))   and
+    $self -> _simple_lock (new Lock::Handle ($self->masterlock)) and
+    return 1;
   }
 
   ###########################################
-- 
2.34.1