zyppe/Perl-UnQLite
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fixed DELETE for a nonexistent entry

Browse source
This commit is contained in:
Kenichi Ishigaki 2013-07-04 13:32:39 +09:00
parent 317b78815a
commit a94bdc6ca2
2 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lib/UnQLite.pm
View file

@ -118,7 +118,9 @@ sub STORE {
sub DELETE {
my ($self, $key) = @_;
my $prev = $self->kv_fetch($key);
my $prev = $self->[1]->kv_fetch($key);
my $errstr = $self->[1]->errstr;
return if $errstr && $errstr eq 'UNQLITE_NOTFOUND';
$self->[1]->kv_delete($key) or Carp::croak $self->[1]->errstr;
$prev;
}