Merge tag 'upstream/3.052'

[sven/mysqltcl.git] / generic / mysqltcl.c

diff --git a/generic/mysqltcl.c b/generic/mysqltcl.c
index 1269e85596e141fdb9dbafb819c7708684b4def3..53195b9a4d942acae134e5f7d07ebc1833ec9767 100755 (executable)
--- a/generic/mysqltcl.c
+++ b/generic/mysqltcl.c
@@ -36,7 +36,7 @@
 #ifdef _WINDOWS\r
    #include <windows.h>\r
    #define PACKAGE "mysqltcl"\r
-   #define PACKAGE_VERSION "3.051"\r
+   #define PACKAGE_VERSION "3.052"\r
 #endif\r
 \r
 #include <tcl.h>\r
@@ -2163,6 +2163,7 @@ static int Mysqltcl_NextResult(ClientData clientData, Tcl_Interp *interp, int ob
       return mysql_server_confl(interp,objc,objv,handle->connection);\r
   }\r
   handle->result = mysql_store_result(handle->connection);\r
+  handle->col_count = mysql_num_fields(handle->result);\r
   if (handle->result == NULL) {\r
       Tcl_SetObjResult(interp, Tcl_NewIntObj(-1));\r
   } else {\r
@@ -2767,4 +2768,4 @@ int Mysqltcl_SafeInit(interp)
 {\r
   return Mysqltcl_Init(interp);\r
 }\r
-
+\r