From d2214b06b5f48af10dd2321e5e5b4bb926e43bfa Mon Sep 17 00:00:00 2001
From: Stephen Palmer <stephen@fun-machine.com>
Date: Thu, 15 Nov 2012 17:35:47 +0000
Subject: [PATCH] Fixed bug in lock script

the unlock command was not checking the correct hash key to match
the user name
---
 src/commands/lock | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/commands/lock b/src/commands/lock
index f95af6c..a9e9073 100755
--- a/src/commands/lock
+++ b/src/commands/lock
@@ -71,7 +71,7 @@ sub f_unlock {
     my ( $repo, $file ) = @_;
 
     my %locks = get_locks();
-    _die "'$file' not locked by '$ENV{GL_USER}'" if ( $locks{$file} || '' ) ne $ENV{GL_USER};
+    _die "'$file' not locked by '$ENV{GL_USER}'" if ( $locks{$file}{USER} || '' ) ne $ENV{GL_USER};
     delete $locks{$file};
     put_locks(%locks);
 }