From ec7ddc158680b5302995f32400c6b17f15dab875 Mon Sep 17 00:00:00 2001
From: Tom Lane <tgl@sss.pgh.pa.us>
Date: Mon, 17 Sep 2001 00:42:42 +0000
Subject: [PATCH] Use portable putenv(), not unportable setenv().
---
src/interfaces/libpgtcl/pgtcl.c | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/src/interfaces/libpgtcl/pgtcl.c b/src/interfaces/libpgtcl/pgtcl.c
index 64a3246487..10f2ab0396 100644
--- 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,