Use Tcl_GetString() instead of Tcl_GetCharLength() to test for a zero-length

string in the TCL interface, since that is much more efficient.

FossilOrigin-Name: a8d9dcfd23fbfcd887e451382836c1e88215984cc01e00be11387dbf4ab26fd8

1 files changed, 1 insertions, 1 deletions

diff --git a/src/tclsqlite.c b/src/tclsqlite.c
index 598c9355f..76c9ef75c 100644
--- a/src/tclsqlite.c
+++ b/src/tclsqlite.c
@@ -1964,7 +1964,7 @@ static void DbHookCmd(
   }
   if( pArg ){
     assert( !(*ppHook) );
-    if( Tcl_GetCharLength(pArg)>0 ){
+    if( Tcl_GetString(pArg)[0] ){
       *ppHook = pArg;
       Tcl_IncrRefCount(*ppHook);
     }