Fixed enable_load_extension return value bug

mmottl · mmottl · commit f5a3727b7e49 · 2017-06-09T10:47:47.000-04:00
diff --git a/src/META b/src/META
@@ -1,6 +1,6 @@
 # OASIS_START
-# DO NOT EDIT (digest: 28225b4e4e88e96297931e828c771280)
-version = "4.1.2"
+# DO NOT EDIT (digest: 496b9c1c4aed472436cd96395b22e2a2)
+version = "4.1.3"
 description = "sqlite3-ocaml - SQLite3 bindings"
 archive(byte) = "sqlite3.cma"
 archive(byte, plugin) = "sqlite3.cma"
diff --git a/src/sqlite3_stubs.c b/src/sqlite3_stubs.c
@@ -470,7 +470,7 @@ CAMLprim value caml_sqlite3_enable_load_extension(value v_db, value v_onoff)
   int ret;
   db_wrap *dbw = Sqlite3_val(v_db);
   ret = sqlite3_enable_load_extension(dbw->db, Bool_val(v_onoff));
-  return Val_bool(ret);
+  return Val_bool(ret == SQLITE_OK);
 }
 #else
 CAMLprim value caml_sqlite3_enable_load_extension(

Original file line number	Diff line number	Diff line change
`@@ -470,7 +470,7 @@ CAMLprim value caml_sqlite3_enable_load_extension(value v_db, value v_onoff)`
`470`	`470`	`int ret;`
`471`	`471`	`db_wrap *dbw = Sqlite3_val(v_db);`
`472`	`472`	`ret = sqlite3_enable_load_extension(dbw->db, Bool_val(v_onoff));`
`473`		`- return Val_bool(ret);`
	`473`	`+ return Val_bool(ret == SQLITE_OK);`
`474`	`474`	`}`
`475`	`475`	`#else`
`476`	`476`	`CAMLprim value caml_sqlite3_enable_load_extension(`