From 59da9aaab819fb08c0b6975b650875d2b19c6063 Mon Sep 17 00:00:00 2001
From: Leigh B Stoller <stoller@flux.utah.edu>
Date: Sun, 29 Jul 2018 10:45:17 -0600
Subject: [PATCH] Add TakeLock() to steal the lock from another process (as in
 the parent process that hands off).

---
 protogeni/lib/GeniSlice.pm.in | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/protogeni/lib/GeniSlice.pm.in b/protogeni/lib/GeniSlice.pm.in
index b937d462d..9562021aa 100755
--- a/protogeni/lib/GeniSlice.pm.in
+++ b/protogeni/lib/GeniSlice.pm.in
@@ -551,6 +551,14 @@ sub UnLock($)
     $self->{'STITCHLOCKED'} = 0;
     return 0;
 }
+sub TakeLock($)
+{
+    my ($self) = @_;
+    
+    $self->{'LOCKED'} = $$;
+    $self->{'STITCHLOCKED'} = $$;
+    return 0;
+}
 
 #
 # Wait for lock with timeout (in seconds).
-- 
GitLab