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/debian changelog
Date Fri, 03 May 2002 14:05:12 GMT
davidw      02/05/03 07:05:11

  Modified:    .        VERSION tcl_commands.c
               debian   changelog
  Log:
  * Make sure to check the correct variable names with 'list' and
    'exists. as well.
  
  Revision  Changes    Path
  1.8       +1 -1      tcl-moddtcl/VERSION
  
  Index: VERSION
  ===================================================================
  RCS file: /home/cvs/tcl-moddtcl/VERSION,v
  retrieving revision 1.7
  retrieving revision 1.8
  diff -u -r1.7 -r1.8
  --- VERSION	18 Apr 2002 13:02:19 -0000	1.7
  +++ VERSION	3 May 2002 14:05:11 -0000	1.8
  @@ -1 +1 @@
  -0.11.7
  +0.11.8
  
  
  
  1.23      +8 -4      tcl-moddtcl/tcl_commands.c
  
  Index: tcl_commands.c
  ===================================================================
  RCS file: /home/cvs/tcl-moddtcl/tcl_commands.c,v
  retrieving revision 1.22
  retrieving revision 1.23
  diff -u -r1.22 -r1.23
  --- tcl_commands.c	18 Apr 2002 13:02:20 -0000	1.22
  +++ tcl_commands.c	3 May 2002 14:05:11 -0000	1.23
  @@ -29,11 +29,11 @@
   int MakeURL(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[])
   {
       dtcl_interp_globals *globals = Tcl_GetAssocData(interp, "dtcl", NULL);
  -    
  +
       if (objc != 2)
       {
   	Tcl_WrongNumArgs(interp, 1, objv, "filename");
  -	return TCL_ERROR;	
  +	return TCL_ERROR;
       }
       Tcl_SetResult(interp, ap_construct_url(POOL, Tcl_GetString(objv[1]), globals->r),
NULL);
       return TCL_OK;
  @@ -571,7 +571,9 @@
           /* This isn't real efficient - move to hash table later 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)))
   	    {
   		result = Tcl_NewIntObj(1);
   		Tcl_IncrRefCount(result);
  @@ -595,7 +597,9 @@
           /* This isn't real efficient - move to hash table later 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)))
   	    {
   		if (result == NULL)
   		{
  
  
  
  1.20      +7 -0      tcl-moddtcl/debian/changelog
  
  Index: changelog
  ===================================================================
  RCS file: /home/cvs/tcl-moddtcl/debian/changelog,v
  retrieving revision 1.19
  retrieving revision 1.20
  diff -u -r1.19 -r1.20
  --- changelog	18 Apr 2002 13:02:20 -0000	1.19
  +++ changelog	3 May 2002 14:05:11 -0000	1.20
  @@ -1,3 +1,10 @@
  +libapache-mod-dtcl (0.11.8-1) unstable; urgency=low
  +
  +  * Make sure to check the correct variable names with 'list' and
  +    'exists. as well.
  +
  + -- David N. Welton <davidw@debian.org>  Fri,  3 May 2002 16:04:51 +0200
  +
   libapache-mod-dtcl (0.11.7-1) unstable; urgency=low
   
     * mod_dtcl.c (execute_and_check): Make sure to output results of
  
  
  

---------------------------------------------------------------------
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