Use Tcl_PutEnv() in place of putenv() in libpgtcl, as the latter can

apparently corrupt the Tcl runtime. Per suggestion from Michael
Brusser <michael@synchronicity.com>

diff --git a/src/interfaces/libpgtcl/pgtcl.c b/src/interfaces/libpgtcl/pgtcl.c
index fd01187aa797e58fe5fe535f95199bd89fb46e79..38bbd8271f42a8556230c91a40db68843293ba9a 100644 (file)
--- a/src/interfaces/libpgtcl/pgtcl.c
+++ b/src/interfaces/libpgtcl/pgtcl.c
@@ -10,7 +10,7 @@
  *
  *
  * IDENTIFICATION
- *       $Header: /cvsroot/pgsql/src/interfaces/libpgtcl/Attic/pgtcl.c,v 1.28 2003/08/04 02:40:16 momjian Exp $
+ *       $Header: /cvsroot/pgsql/src/interfaces/libpgtcl/Attic/pgtcl.c,v 1.28.4.1 2004/02/02 01:00:58 neilc Exp $
  *
  *-------------------------------------------------------------------------
  */
@@ -47,7 +47,7 @@ Pgtcl_Init(Tcl_Interp *interp)
         */
        Tcl_GetDouble(interp, Tcl_GetVar(interp, "tcl_version", TCL_GLOBAL_ONLY), &tclversion);
        if (tclversion >= 8.1)
-               putenv("PGCLIENTENCODING=UNICODE");
+               Tcl_PutEnv("PGCLIENTENCODING=UNICODE");
 
        /* register all pgtcl commands */
        Tcl_CreateCommand(interp,