You are viewing a plain text version of this content. The canonical link for it is here.
Posted to mod_dtcl-cvs@tcl.apache.org by da...@apache.org on 2002/03/13 16:56:06 UTC
cvs commit: tcl-moddtcl tcl_commands.c
davidw 02/03/13 07:56:06
Modified: . tcl_commands.c
Log:
* Fixed problem with 'var' command. Variables with similar names
sometimes are confused.
Revision Changes Path
1.21 +3 -1 tcl-moddtcl/tcl_commands.c
Index: tcl_commands.c
===================================================================
RCS file: /home/cvs/tcl-moddtcl/tcl_commands.c,v
retrieving revision 1.20
retrieving revision 1.21
diff -u -r1.20 -r1.21
--- tcl_commands.c 14 Nov 2001 14:50:36 -0000 1.20
+++ tcl_commands.c 13 Mar 2002 15:56:06 -0000 1.21
@@ -536,7 +536,9 @@
on... */
for (i = 0; i < parmsarray->nelts; ++i)
{
- if (!strncmp(key, StringToUtf(parms[i].key, POOL), strlen(key)))
+ if (!strncmp(key, StringToUtf(parms[i].key, POOL),
+ strlen(key) < strlen(parms[i].key) ?
+ strlen(parms[i].key) : strlen(key)))
{
/* The following makes sure that we get one string,
with no sub lists. */
---------------------------------------------------------------------
To unsubscribe, e-mail: mod_dtcl-cvs-unsubscribe@tcl.apache.org
For additional commands, e-mail: mod_dtcl-cvs-help@tcl.apache.org