From: Pat Thoyts <patthoyts@users.sourceforge.net>
Date: Mon, 6 Sep 2010 20:42:30 +0000 (+0100)
Subject: version 3.04
X-Git-Tag: v3.04
X-Git-Url: http://privyetmir.co.uk/gitweb?a=commitdiff_plain;h=0dbb3ca3b1aee74e308269ab5c7b9a77b8ab8075;p=mysqltcl

version 3.04

Signed-off-by: Pat Thoyts <patthoyts@users.sourceforge.net>
---

diff --git a/ChangeLog b/ChangeLog
index 5323a46..2bf59fb 100755
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+Release 3.04
+-- bug fix for mysql::state (check for argument lenght). Thanks to Snyper for bug fix
+Release 3.03
+-- patch for file mysqltcl.c to adapt mysql column comands for mysql5 was applied. This accept 
+new columns  types: newdecimal, bit and geometry. Thanks to Joerg Mehring.
 Release 3.02
 -- bug in mysql::map and mysql::recieve removed (occurs only for one column evalated in global context)
 -- TEA upgrated
diff --git a/configure b/configure
index 66ac37c..e428bcd 100755
--- a/configure
+++ b/configure
@@ -1,6 +1,6 @@
 #! /bin/sh
 # Guess values for system-dependent variables and create Makefiles.
-# Generated by GNU Autoconf 2.59 for mysqltcl 3.03.
+# Generated by GNU Autoconf 2.59 for mysqltcl 3.04.
 #
 # Copyright (C) 2003 Free Software Foundation, Inc.
 # This configure script is free software; the Free Software Foundation
@@ -267,8 +267,8 @@ SHELL=${CONFIG_SHELL-/bin/sh}
 # Identity of this package.
 PACKAGE_NAME='mysqltcl'
 PACKAGE_TARNAME='mysqltcl'
-PACKAGE_VERSION='3.03'
-PACKAGE_STRING='mysqltcl 3.03'
+PACKAGE_VERSION='3.04'
+PACKAGE_STRING='mysqltcl 3.04'
 PACKAGE_BUGREPORT=''
 
 # Factoring default headers for most tests.
@@ -777,7 +777,7 @@ if test "$ac_init_help" = "long"; then
   # Omit some internal or obsolete options to make the list less imposing.
   # This message is too long to be a string in the A/UX 3.1 sh.
   cat <<_ACEOF
-\`configure' configures mysqltcl 3.03 to adapt to many kinds of systems.
+\`configure' configures mysqltcl 3.04 to adapt to many kinds of systems.
 
 Usage: $0 [OPTION]... [VAR=VALUE]...
 
@@ -834,7 +834,7 @@ fi
 
 if test -n "$ac_init_help"; then
   case $ac_init_help in
-     short | recursive ) echo "Configuration of mysqltcl 3.03:";;
+     short | recursive ) echo "Configuration of mysqltcl 3.04:";;
    esac
   cat <<\_ACEOF
 
@@ -968,7 +968,7 @@ fi
 test -n "$ac_init_help" && exit 0
 if $ac_init_version; then
   cat <<\_ACEOF
-mysqltcl configure 3.03
+mysqltcl configure 3.04
 generated by GNU Autoconf 2.59
 
 Copyright (C) 2003 Free Software Foundation, Inc.
@@ -982,7 +982,7 @@ cat >&5 <<_ACEOF
 This file contains any messages produced by compilers while
 running configure, to aid debugging if configure makes a mistake.
 
-It was created by mysqltcl $as_me 3.03, which was
+It was created by mysqltcl $as_me 3.04, which was
 generated by GNU Autoconf 2.59.  Invocation command line was
 
   $ $0 $@
@@ -10147,7 +10147,7 @@ _ASBOX
 } >&5
 cat >&5 <<_CSEOF
 
-This file was extended by mysqltcl $as_me 3.03, which was
+This file was extended by mysqltcl $as_me 3.04, which was
 generated by GNU Autoconf 2.59.  Invocation command line was
 
   CONFIG_FILES    = $CONFIG_FILES
@@ -10202,7 +10202,7 @@ _ACEOF
 
 cat >>$CONFIG_STATUS <<_ACEOF
 ac_cs_version="\\
-mysqltcl config.status 3.03
+mysqltcl config.status 3.04
 configured by $0, generated by GNU Autoconf 2.59,
   with options \\"`echo "$ac_configure_args" | sed 's/[\\""\`\$]/\\\\&/g'`\\"
 
diff --git a/configure.in b/configure.in
index ae7f3be..8eb377e 100755
--- a/configure.in
+++ b/configure.in
@@ -19,7 +19,7 @@ dnl	to configure the system for the local environment.
 # so you can encode the package version directly into the source files.
 #-----------------------------------------------------------------------
 
-AC_INIT([mysqltcl], [3.03])
+AC_INIT([mysqltcl], [3.04])
 
 #--------------------------------------------------------------------
 # Call TEA_INIT as the first TEA_ macro to set up initial vars.
diff --git a/generic/mysqltcl.c b/generic/mysqltcl.c
index 6ff393e..8a5567e 100755
--- a/generic/mysqltcl.c
+++ b/generic/mysqltcl.c
@@ -1866,8 +1866,10 @@ static int Mysqltcl_State(ClientData clientData, Tcl_Interp *interp, int objc, T
   int numeric=0 ;
   Tcl_Obj *res;
 
-  if (objc!=2 && objc!=3)
+  if (objc!=2 && objc!=3) {
       Tcl_WrongNumArgs(interp, 1, objv, "handle ?-numeric");
+      return TCL_ERROR;
+  }
 
   if (objc==3) {
     if (strcmp(Tcl_GetStringFromObj(objv[2],NULL), "-numeric"))
diff --git a/tests/test.tcl b/tests/test.tcl
index 0a8e0b5..5ac5f9c 100755
--- a/tests/test.tcl
+++ b/tests/test.tcl
@@ -424,5 +424,10 @@ tcltest::test {interpreter-1.0} {mysqltcl in slave interpreter} -body {
 	return
 }
 
+tcltest::test {mysql::state-1.0} {wrong parameter length} -body {
+	mysql::state
+	return
+} -returnCodes error -match glob -result "*wrong*"
+
 tcltest::cleanupTests
 puts "End of test"