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 mod_dtcl.c
Date Tue, 08 May 2001 11:05:34 GMT
davidw      01/05/08 04:05:32

  Modified:    .        mod_dtcl.c
  Log:
  Fixed variable names... DAMMIT.
  
  Revision  Changes    Path
  1.28      +4 -4      tcl-moddtcl/mod_dtcl.c
  
  Index: mod_dtcl.c
  ===================================================================
  RCS file: /home/cvs/tcl-moddtcl/mod_dtcl.c,v
  retrieving revision 1.27
  retrieving revision 1.28
  diff -u -r1.27 -r1.28
  --- mod_dtcl.c	2001/05/08 10:32:28	1.27
  +++ mod_dtcl.c	2001/05/08 11:05:06	1.28
  @@ -58,7 +58,7 @@
    * University of Illinois, Urbana-Champaign.
    */
   
  -/* $Id: mod_dtcl.c,v 1.27 2001/05/08 10:32:28 davidw Exp $  */
  +/* $Id: mod_dtcl.c,v 1.28 2001/05/08 11:05:06 davidw Exp $  */
   
   /* mod_dtcl.c by David Welton <davidw@apache.org> - originally mod_include.  */
   /* See http://tcl.apache.org/mod_dtcl/credits.ttml for additional credits. */
  @@ -746,14 +746,14 @@
                      produce a variable that is a list */
   		Tcl_Obj *newkey = STRING_TO_UTF_TO_OBJ(parms[i].key);
   		Tcl_Obj *newval = STRING_TO_UTF_TO_OBJ(parms[i].val);
  -		Tcl_Obj *oldkey = Tcl_ObjGetVar2(interp, varsobj, newkey, 0);
  +		Tcl_Obj *oldval = Tcl_ObjGetVar2(interp, varsobj, newkey, 0);
   		
  -		if (oldkey == NULL)
  +		if (oldval == NULL)
   		{
   		    Tcl_ObjSetVar2(interp, varsobj, newkey, newval, 0);
   		} else {
   		    Tcl_Obj *concat[2];
  -		    concat[0] = oldkey;
  +		    concat[0] = oldval;
   		    concat[1] = newval;
   		    Tcl_ObjSetVar2(interp, varsobj, newkey, Tcl_ConcatObj(2, concat), 0);
   		}
  
  
  

Mime
View raw message