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

oops

Browse source
This commit is contained in:
Kenichi Ishigaki 2013-07-04 13:23:50 +09:00
parent 008d6ea2f3
commit 317b78815a
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lib/UnQLite.pm
View file

@ -12,7 +12,7 @@ XSLoader::load(__PACKAGE__, $VERSION);
sub TIEHASH {
my $class = shift;
my $self = $class->open(@_) or croak $class->errstr;
my $self = $class->open(@_) or Carp::croak $class->errstr;
$self->cursor_init;
}
@ -112,14 +112,14 @@ sub FETCH {
sub STORE {
my ($self, $key, $value) = @_;
$self->[1]->kv_store($key, $value) or croak $self->[1]->errstr;
$self->[1]->kv_store($key, $value) or Carp::croak $self->[1]->errstr;
$value;
}
sub DELETE {
my ($self, $key) = @_;
my $prev = $self->kv_fetch($key);
$self->[1]->kv_delete($key) or croak $self->[1]->errstr;
$self->[1]->kv_delete($key) or Carp::croak $self->[1]->errstr;
$prev;
}