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

better use UNQLITE_OK as there may be other errors

Browse source
This commit is contained in:
Kenichi Ishigaki 2013-07-04 13:48:22 +09:00
parent 879640f4c5
commit 38116a08c5
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lib/UnQLite.pm
View file

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