Attachment "tcl.diff" to
ticket [426038ffff]
added by
davidw
2001-05-22 03:13:16.
Index: generic/tclVar.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclVar.c,v
retrieving revision 1.32
diff -u -r1.32 tclVar.c
--- generic/tclVar.c 2001/05/17 02:13:03 1.32
+++ generic/tclVar.c 2001/05/21 20:12:47
@@ -4012,6 +4012,11 @@
Tcl_Obj *varValuePtr;
int i, result;
+ if(objc < 2) {
+ Tcl_WrongNumArgs(interp, 1, objv, "?name value...? name ?value?");
+ return TCL_ERROR;
+ }
+
for (i = 1; i < objc; i = i+2) {
/*
* Look up each variable in the current namespace context, creating
