diff options
| -rw-r--r-- | ChangeLog | 5 | ||||
| -rw-r--r-- | generic/tclCmdIL.c | 4 | ||||
| -rw-r--r-- | tests/lset.test | 2 | ||||
| -rwxr-xr-x | tests/lsetComp.test | 2 |
4 files changed, 9 insertions, 4 deletions
@@ -1,3 +1,8 @@ +2010-06-22 Donal K. Fellows <dkf@users.sf.net> + + * generic/tclCmdIL.c (Tcl_LsetObjCmd): [Bug 3019351]: Corrected wrong + args message. + 2010-06-18 Donal K. Fellows <dkf@users.sf.net> * library/init.tcl (auto_execok): [Bug 3017997]: Add .cmd to the diff --git a/generic/tclCmdIL.c b/generic/tclCmdIL.c index fed7975..35a48d3 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.137.2.8 2009/08/20 14:29:14 dkf Exp $ + * RCS: @(#) $Id: tclCmdIL.c,v 1.137.2.9 2010/06/22 12:12:48 dkf Exp $ */ #include "tclInt.h" @@ -3381,7 +3381,7 @@ 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 872047b..ba6ad1f 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 6b9264c..476ff71 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 { |