Fixed bug in lock script

the unlock command was not checking the correct hash key to match
the user name
This commit is contained in:
Stephen Palmer 2012-11-15 17:35:47 +00:00 committed by Sitaram Chamarty
parent 96cc2eaf41
commit d2214b06b5

View file

@ -71,7 +71,7 @@ sub f_unlock {
my ( $repo, $file ) = @_; my ( $repo, $file ) = @_;
my %locks = get_locks(); 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}; delete $locks{$file};
put_locks(%locks); put_locks(%locks);
} }