bugfix: faulty check in update and append

[cgilite] / storage.sh

diff --git a/storage.sh b/storage.sh
index 355bd569e40779602381612c36fafe6b839f418d..61eec88fb2cee63f706a634eaa48c85a09ef1967 100755 (executable)
--- a/storage.sh
+++ b/storage.sh
@@ -161,7 +161,7 @@ DBM() {
     update|replace)
       k="$1" key="$(STRING "$1")" value="$(STRING "$2")"
       LOCK "$file" || return 1
-      if ! DBM check "$k"; then
+      if ! DBM "$file" check "$k"; then
         RELEASE "$file"
         return 1
       fi
@@ -178,7 +178,7 @@ DBM() {
     append)
       key="$(STRING "$1")" value="$(STRING "$2")"
       LOCK "$file" || return 1
-      if ! DBM check "$1"; then
+      if ! DBM "$file" check "$1"; then
         RELEASE "$file"
         return 1
       fi