tcl-mod_dtcl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From dav...@apache.org
Subject cvs commit: tcl-moddtcl tcl_commands.c
Date Wed, 13 Mar 2002 15:56:06 GMT
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


Mime
View raw message