From 38116a08c5da32cd7950bb57a74a2e35b38e0cd0 Mon Sep 17 00:00:00 2001
From: Kenichi Ishigaki <ishigaki@cpan.org>
Date: Thu, 4 Jul 2013 13:48:22 +0900
Subject: [PATCH] better use UNQLITE_OK as there may be other errors

---
 lib/UnQLite.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/UnQLite.pm b/lib/UnQLite.pm
index cabfda4..d1ee57c 100644
--- a/lib/UnQLite.pm
+++ b/lib/UnQLite.pm
@@ -120,7 +120,7 @@ sub DELETE {
     my ($self, $key) = @_;
     my $prev = $self->[1]->kv_fetch($key);
     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;
     $prev;
 }