From b8362d465ddf58681d26333faa93334716d87493 Mon Sep 17 00:00:00 2001
From: Neil Conway <neilc@samurai.com>
Date: Mon, 2 Feb 2004 00:35:08 +0000
Subject: [PATCH] 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>
---
src/interfaces/libpgtcl/pgtcl.c | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/src/interfaces/libpgtcl/pgtcl.c b/src/interfaces/libpgtcl/pgtcl.c
index 7c4432e9221..a9dc10e27a9 100644
--- 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,
--
GitLab