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
Show stats 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 { sub DELETE {
my ($self, $key) = @_; 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; $self->[1]->kv_delete($key) or Carp::croak $self->[1]->errstr;
$prev; $prev;
} }

3
t/03_tie.t
View file

@ -28,6 +28,9 @@ my $tmp = tempdir( CLEANUP => 1 );
is($hash{yay}, 'yappo'); is($hash{yay}, 'yappo');
$hash{foo} = 'baz'; $hash{foo} = 'baz';
is($hash{foo}, 'baz'); is($hash{foo}, 'baz');
$hash{delete} = 'delete';
is(delete $hash{delete}, 'delete');
is(delete $hash{delete}, undef);
is(join(" ", sort keys %hash), "foo yay"); is(join(" ", sort keys %hash), "foo yay");
is(join(" ", sort values %hash), "baz yappo"); is(join(" ", sort values %hash), "baz yappo");