[elephant-cvs] CVS elephant/src/db-bdb

[ieslick]

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))