From bc400d47c756b4e8b1d78a243199b8f5fbdbd4f0 Mon Sep 17 00:00:00 2001 From: dkf Date: Tue, 22 Jun 2010 12:25:16 +0000 Subject: * generic/tclCmdIL.c (Tcl_LsetObjCmd): [Bug 3019351]: Corrected wrong args message. --- ChangeLog | 23 ++++++++++++++--------- generic/tclCmdIL.c | 5 +++-- tests/lset.test | 2 +- tests/lsetComp.test | 2 +- 4 files changed, 19 insertions(+), 13 deletions(-) diff --git a/ChangeLog b/ChangeLog index b7e26cc..642061d 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,14 +1,19 @@ +2010-06-22 Donal K. Fellows + + * generic/tclCmdIL.c (Tcl_LsetObjCmd): [Bug 3019351]: Corrected wrong + args message. + 2010-06-21 Jan Nijtmans - * unix/tclLoadDl.c Eliminate various unnecessary type casts, use - * unix/tclLoadNext.c function typedefs whenever possible - * unix/tclUnixChan.c - * unix/tclUnixFile.c - * unix/tclUnixNotfy.c - * unix/tclUnixSock.c - * unix/tclUnixTest.c - * unix/tclXtTest.c - * generic/tclZlib.c Remove hack needed for zlib 1.2.3 on win32 + * unix/tclLoadDl.c: Eliminate various unnecessary type casts, use + * unix/tclLoadNext.c: function typedefs whenever possible + * unix/tclUnixChan.c: + * unix/tclUnixFile.c: + * unix/tclUnixNotfy.c: + * unix/tclUnixSock.c: + * unix/tclUnixTest.c: + * unix/tclXtTest.c: + * generic/tclZlib.c: Remove hack needed for zlib 1.2.3 on win32 2010-06-18 Donal K. Fellows diff --git a/generic/tclCmdIL.c b/generic/tclCmdIL.c index 3d4bcb2..8a38521 100644 --- a/generic/tclCmdIL.c +++ b/generic/tclCmdIL.c @@ -16,7 +16,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclCmdIL.c,v 1.182 2010/05/17 09:46:09 dkf Exp $ + * RCS: @(#) $Id: tclCmdIL.c,v 1.183 2010/06/22 12:25:16 dkf Exp $ */ #include "tclInt.h" @@ -3508,7 +3508,8 @@ Tcl_LsetObjCmd( */ if (objc < 3) { - Tcl_WrongNumArgs(interp, 1, objv, "listVar index ?index ...? value"); + Tcl_WrongNumArgs(interp, 1, objv, + "listVar ?index? ?index ...? value"); return TCL_ERROR; } diff --git a/tests/lset.test b/tests/lset.test index 63c0975..c10f433 100644 --- a/tests/lset.test +++ b/tests/lset.test @@ -31,7 +31,7 @@ trace add variable noWrite write failTrace test lset-1.1 {lset, not compiled, arg count} testevalex { list [catch {testevalex lset} msg] $msg -} "1 {wrong \# args: should be \"lset listVar index ?index ...? value\"}" +} "1 {wrong \# args: should be \"lset listVar ?index? ?index ...? value\"}" test lset-1.2 {lset, not compiled, no such var} testevalex { list [catch {testevalex {lset noSuchVar 0 {}}} msg] $msg } "1 {can't read \"noSuchVar\": no such variable}" diff --git a/tests/lsetComp.test b/tests/lsetComp.test index 4d0ad2c..bc08d78 100755 --- a/tests/lsetComp.test +++ b/tests/lsetComp.test @@ -36,7 +36,7 @@ test lsetComp-1.1 {lset, compiled, wrong \# args} { evalInProc { lset } -} "1 {wrong \# args: should be \"lset listVar index ?index ...? value\"}" +} "1 {wrong \# args: should be \"lset listVar ?index? ?index ...? value\"}" test lsetComp-2.1 {lset, compiled, list of args, not a simple var name} { evalInProc { -- cgit v0.12