X-Git-Url: https://git.p6c8.net/selfforum.git/blobdiff_plain/4efca15bb2136c3e226eb4e372776fad95a955c9..cfbc3eb384902a6f27329b1109e815478741f6fe:/selfforum-cgi/shared/Lock/API.pm

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;
   }
 
   ###########################################