version 3.04

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

diff --git a/ChangeLog b/ChangeLog
index 5323a46256ff44787881e128d387570947dde72c..2bf59fb055b94b689e3667280d62d768800b2d53 100755 (executable)
--- 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 66ac37c48a871883c221f57da9cb6190c9e1d0fa..e428bcddc3eabf9ce0d159c95f05738f74b69527 100755 (executable)
--- 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 ae7f3be0da3dcb551e8ad9786b9295b0c8cb1e4a..8eb377e7c7a5e5c6f238ff2189f15fcacc21c6bf 100755 (executable)
--- 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 6ff393e18d94d6d674fb66da7574f47966bfba0e..8a5567e0840d46783c75638b1f432bde97260e02 100755 (executable)
--- 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 ;\r
   Tcl_Obj *res;\r
 \r
-  if (objc!=2 && objc!=3)\r
+  if (objc!=2 && objc!=3) {\r
       Tcl_WrongNumArgs(interp, 1, objv, "handle ?-numeric");\r
+      return TCL_ERROR;\r
+  }\r
 \r
   if (objc==3) {\r
     if (strcmp(Tcl_GetStringFromObj(objv[2],NULL), "-numeric"))\r

diff --git a/tests/test.tcl b/tests/test.tcl
index 0a8e0b52e68a680ba44da82307a5623030edc6cf..5ac5f9c51029e4079d132f9a103ee13a99023bfe 100755 (executable)
--- 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"