Use portable putenv(), not unportable setenv().

tglsfdc · tglsfdc · commit ec7ddc158680 · 2001-09-17T00:42:42.000Z
diff --git 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.22 2001/09/10 14:49:12 momjian Exp $
+ *	  $Header: /cvsroot/pgsql/src/interfaces/libpgtcl/Attic/pgtcl.c,v 1.23 2001/09/17 00:42:42 tgl Exp $
  *
  *-------------------------------------------------------------------------
  */
@@ -45,7 +45,8 @@ Pgtcl_Init(Tcl_Interp *interp)
 	 * Therefore PGCLIENTENCODING must be set to UNICODE for these versions.
 	 */
 	Tcl_GetDouble(interp, Tcl_GetVar(interp, "tcl_version", TCL_GLOBAL_ONLY), &tclversion);
-	if (tclversion >= 8.1) setenv("PGCLIENTENCODING", "UNICODE", 1);
+	if (tclversion >= 8.1)
+		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`		`- * $Header: /cvsroot/pgsql/src/interfaces/libpgtcl/Attic/pgtcl.c,v 1.22 2001/09/10 14:49:12 momjian Exp $`
	`13`	`+ * $Header: /cvsroot/pgsql/src/interfaces/libpgtcl/Attic/pgtcl.c,v 1.23 2001/09/17 00:42:42 tgl Exp $`
`14`	`14`	`*`
`15`	`15`	`*-------------------------------------------------------------------------`
`16`	`16`	`*/`
`@@ -45,7 +45,8 @@ Pgtcl_Init(Tcl_Interp *interp)`
`45`	`45`	`* Therefore PGCLIENTENCODING must be set to UNICODE for these versions.`
`46`	`46`	`*/`
`47`	`47`	`Tcl_GetDouble(interp, Tcl_GetVar(interp, "tcl_version", TCL_GLOBAL_ONLY), &tclversion);`
`48`		`- if (tclversion >= 8.1) setenv("PGCLIENTENCODING", "UNICODE", 1);`
	`48`	`+ if (tclversion >= 8.1)`
	`49`	`+ putenv("PGCLIENTENCODING=UNICODE");`
`49`	`50`
`50`	`51`	`/* register all pgtcl commands */`
`51`	`52`	`Tcl_CreateCommand(interp,`