From e90e790d9c0cf9c86381ff9b7bdacf469e611557 Mon Sep 17 00:00:00 2001
From: Phillip Toland <ptoland@thehive.com>
Date: Thu, 11 Dec 2008 16:43:01 -0600
Subject: [PATCH] Enforce the presence of the auto_commit and threaded flags.

---
 src/bdberl_port.erl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/bdberl_port.erl b/src/bdberl_port.erl
index 144f153..d53b5e3 100644
--- a/src/bdberl_port.erl
+++ b/src/bdberl_port.erl
@@ -27,7 +27,7 @@ new() ->
     {ok, Port}.
 
 open_database(Port, Name, Type) ->
-    open_database(Port, Name, Type, [create, auto_commit, threaded]).
+    open_database(Port, Name, Type, [create]).
 
 open_database(Port, Name, Type, Opts) ->
     %% Map database type into an integer code
@@ -35,7 +35,7 @@ open_database(Port, Name, Type, Opts) ->
         btree -> TypeCode = ?DB_TYPE_BTREE;
         hash  -> TypeCode = ?DB_TYPE_HASH
     end,
-    Flags = process_flags(Opts),
+    Flags = process_flags(lists:umerge(Opts, [auto_commit, threaded])),
     Cmd = <<Flags:32/unsigned-native-integer, TypeCode:8/native-integer, (list_to_binary(Name))/bytes, 0:8/native-integer>>,
     case erlang:port_control(Port, ?CMD_OPEN_DB, Cmd) of
         <<?STATUS_OK:8, DbRef:32/native>> ->