From: Neil Conway Date: Mon, 2 Feb 2004 01:00:58 +0000 (+0000) Subject: Use Tcl_PutEnv() in place of putenv() in libpgtcl, as the latter can X-Git-Tag: REL7_4_2~48 X-Git-Url: http://git.postgresql.org/gitweb/static/gitweb.js?a=commitdiff_plain;h=a2b5cc81df606057f85a4a1577a29aaeccda76a7;p=users%2Fc2main%2Fpostgres.git Use Tcl_PutEnv() in place of putenv() in libpgtcl, as the latter can apparently corrupt the Tcl runtime. Per suggestion from Michael Brusser --- diff --git a/src/interfaces/libpgtcl/pgtcl.c b/src/interfaces/libpgtcl/pgtcl.c index fd01187aa7..38bbd8271f 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.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,