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

Neil Conway · Neil Conway · commit b8362d465ddf · 2004-02-02T00:35:08.000Z
apparently corrupt the Tcl runtime. Per suggestion from Michael
Brusser &lt;michael@synchronicity.com&gt;
diff --git a/src/interfaces/libpgtcl/pgtcl.c b/src/interfaces/libpgtcl/pgtcl.c
@@ -10,7 +10,7 @@
  *
  *
  * IDENTIFICATION
- *	  $PostgreSQL: pgsql/src/interfaces/libpgtcl/pgtcl.c,v 1.30 2004/01/07 18:56:29 neilc Exp $
+ *	  $PostgreSQL: pgsql/src/interfaces/libpgtcl/pgtcl.c,v 1.31 2004/02/02 00:35:08 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,

Original file line number	Diff line number	Diff line change
`@@ -10,7 +10,7 @@`
`10`	`10`	`*`
`11`	`11`	`*`
`12`	`12`	`* IDENTIFICATION`
`13`		`- * $PostgreSQL: pgsql/src/interfaces/libpgtcl/pgtcl.c,v 1.30 2004/01/07 18:56:29 neilc Exp $`
	`13`	`+ * $PostgreSQL: pgsql/src/interfaces/libpgtcl/pgtcl.c,v 1.31 2004/02/02 00:35:08 neilc Exp $`
`14`	`14`	`*`
`15`	`15`	`*-------------------------------------------------------------------------`
`16`	`16`	`*/`
`@@ -47,7 +47,7 @@ Pgtcl_Init(Tcl_Interp *interp)`
`47`	`47`	`*/`
`48`	`48`	`Tcl_GetDouble(interp, Tcl_GetVar(interp, "tcl_version", TCL_GLOBAL_ONLY), &tclversion);`
`49`	`49`	`if (tclversion >= 8.1)`
`50`		`- putenv("PGCLIENTENCODING=UNICODE");`
	`50`	`+ Tcl_PutEnv("PGCLIENTENCODING=UNICODE");`
`51`	`51`
`52`	`52`	`/* register all pgtcl commands */`
`53`	`53`	`Tcl_CreateCommand(interp,`