From 1fdc150116cad39aae5c5da407c3312b47a59e3a Mon Sep 17 00:00:00 2001
From: Unit 193 <unit193@unit193.net>
Date: Fri, 17 Dec 2021 07:06:30 -0500
Subject: New upstream version 3.3.3+dfsg1.

---
 Plugins/ScriptingTcl/scriptingtcl.cpp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'Plugins/ScriptingTcl/scriptingtcl.cpp')

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)
-- 
cgit v1.2.3