else
db_name
in
+ HExtlib.mkdir (Filename.dirname db_to_open);
let db = Sqlite3.db_open db_to_open in
(* attach the REGEX function *)
Sqlite3.create_fun2 db "REGEXP"
else
Sqlite3.Data.INT 0L
| _ -> raise (Error "wrong types to 'REGEXP'")
- with exn -> HLog.error (Printexc.to_string exn); raise exn);
+ with Sys.Break -> Sqlite3.Data.INT 0L
+ | exn -> HLog.error (Printexc.to_string exn); raise exn);
Some db
;;