Permalink
Browse files

Fixed bug in lock script

the unlock command was not checking the correct hash key to match
the user name
  • Loading branch information...
1 parent 96cc2ea commit d2214b06b5f48af10dd2321e5e5b4bb926e43bfa @stephen-palmer stephen-palmer committed with Nov 15, 2012
Showing with 1 addition and 1 deletion.
  1. +1 −1 src/commands/lock
View
@@ -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);
}

0 comments on commit d2214b0

Please sign in to comment.