X-Git-Url: https://git.sven.stormbind.net/?p=sven%2Fmysqltcl.git;a=blobdiff_plain;f=generic%2Fmysqltcl.c;fp=generic%2Fmysqltcl.c;h=53195b9a4d942acae134e5f7d07ebc1833ec9767;hp=1269e85596e141fdb9dbafb819c7708684b4def3;hb=ef0160440ef423857ed8496d6384f24e5130822f;hpb=9e769beb427ee86358511c714a8e08912d4df977 diff --git a/generic/mysqltcl.c b/generic/mysqltcl.c index 1269e85..53195b9 100755 --- a/generic/mysqltcl.c +++ b/generic/mysqltcl.c @@ -36,7 +36,7 @@ #ifdef _WINDOWS #include #define PACKAGE "mysqltcl" - #define PACKAGE_VERSION "3.051" + #define PACKAGE_VERSION "3.052" #endif #include @@ -2163,6 +2163,7 @@ static int Mysqltcl_NextResult(ClientData clientData, Tcl_Interp *interp, int ob return mysql_server_confl(interp,objc,objv,handle->connection); } handle->result = mysql_store_result(handle->connection); + handle->col_count = mysql_num_fields(handle->result); if (handle->result == NULL) { Tcl_SetObjResult(interp, Tcl_NewIntObj(-1)); } else { @@ -2767,4 +2768,4 @@ int Mysqltcl_SafeInit(interp) { return Mysqltcl_Init(interp); } - +