diff options
Diffstat (limited to 'Plugins/ScriptingTcl/scriptingtcl.cpp')
| -rw-r--r-- | Plugins/ScriptingTcl/scriptingtcl.cpp | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Plugins/ScriptingTcl/scriptingtcl.cpp b/Plugins/ScriptingTcl/scriptingtcl.cpp index 962c073..cc48aa0 100644 --- a/Plugins/ScriptingTcl/scriptingtcl.cpp +++ b/Plugins/ScriptingTcl/scriptingtcl.cpp @@ -290,6 +290,7 @@ QVariant ScriptingTcl::tclObjToVariant(Tcl_Obj* obj) Tcl_DictObjDone(&search); } result = hash; + break; } case TclDataType::Bignum: case TclDataType::String: @@ -558,7 +559,7 @@ SqlQueryPtr ScriptingTcl::dbCommonEval(ContextTcl* ctx, Tcl_Interp* interp, Tcl_ Tcl_Obj* result = nullptr; QString sql = QString::fromUtf8(Tcl_GetStringFromObj(objv[2], nullptr)); - TokenList bindTokens = Lexer::tokenize(sql, ctx->db->getDialect()).filter(Token::BIND_PARAM); + TokenList bindTokens = Lexer::tokenize(sql).filter(Token::BIND_PARAM); QString bindVarName; QHash<QString, QVariant> queryArgs; for (const TokenPtr& token : bindTokens) |