diff options
| author |   Unit 193 <unit193@unit193.net> | 2021-12-17 07:07:47 -0500 |
|---|---|---|
| committer | Unit 193 <unit193@unit193.net> | 2021-12-17 07:07:47 -0500 |
| commit | 558b1e35fd0777ac97763c1b28056ac984e583e7 (patch) | |
| tree | 1eb2557119a117ea76535c89cd14a49e510b96bf /Plugins/ScriptingTcl/scriptingtcl.cpp | |
| parent | c22eb635c11fd45f9c30f911d70e1d79111a49ce (diff) | |
| parent | 1fdc150116cad39aae5c5da407c3312b47a59e3a (diff) | |
Update upstream source from tag 'upstream/3.3.3+dfsg1'
Update to upstream version '3.3.3+dfsg1'
with Debian dir 9a301fff4922aed2fec0c04c7d011947168c42f1
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) |