Update of /project/elephant/cvsroot/elephant/src/db-bdb In directory clnet:/tmp/cvs-serv12699
Modified Files: bdb-transactions.lisp Log Message: Fixed potential lock leak in BDB where commit fails, but the system does not properly abort the failed transaction
--- /project/elephant/cvsroot/elephant/src/db-bdb/bdb-transactions.lisp 2007/02/02 23:51:58 1.5 +++ /project/elephant/cvsroot/elephant/src/db-bdb/bdb-transactions.lisp 2007/02/13 16:49:32 1.6 @@ -47,9 +47,9 @@ (unwind-protect (prog1 (funcall txn-fn) - (setq success t) (db-transaction-commit txn :txn-nosync txn-nosync - :txn-sync txn-sync)) + :txn-sync txn-sync) + (setq success t)) (unless success (db-transaction-abort txn))))))) (unless (and (eq result txn) (not success))