[naviserver-commits] naviserver/nsd tclenv.c,1.4,1.5

[Zoran V. <vas...@us...>]

Update of /cvsroot/naviserver/naviserver/nsd
In directory sc8-pr-cvs7.sourceforge.net:/tmp/cvs-serv12370/nsd

Modified Files:
	tclenv.c 
Log Message:
Uses unsetenv() if present to unset the env variable instead of doing
some dirty tricks.


Index: tclenv.c
===================================================================
RCS file: /cvsroot/naviserver/naviserver/nsd/tclenv.c,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** tclenv.c	13 May 2006 14:39:28 -0000	1.4
--- tclenv.c	13 May 2006 15:42:23 -0000	1.5
***************
*** 250,253 ****
--- 250,260 ----
      size_t  len;
  
+ #ifdef HAVE_UNSETENV
+     if (value == NULL) {
+         unsetenv(name);
+         return TCL_OK;
+     }
+ #endif
+ 
      len = strlen(name);
      if (value != NULL) {