From 0dbb3ca3b1aee74e308269ab5c7b9a77b8ab8075 Mon Sep 17 00:00:00 2001 From: Pat Thoyts Date: Mon, 6 Sep 2010 21:42:30 +0100 Subject: [PATCH] version 3.04 Signed-off-by: Pat Thoyts --- ChangeLog | 5 +++++ configure | 18 +++++++++--------- configure.in | 2 +- generic/mysqltcl.c | 4 +++- tests/test.tcl | 5 +++++ 5 files changed, 23 insertions(+), 11 deletions(-) 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" -- 2.23.0