database/postgres
database/postgres
1
0
Fork 0
mirror of https://github.com/postgres/postgres.git synced 2025-05-18 17:41:14 +03:00
Code

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

Browse Source 
apparently corrupt the Tcl runtime. Per suggestion from Michael
Brusser <michael@synchronicity.com>
This commit is contained in:
Neil Conway 2004-02-02 01:00:58 +00:00
parent 871e56709d
commit a2b5cc81df
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/interfaces/libpgtcl/pgtcl.c
View File

@ -10,7 +10,7 @@
* *
* *
* IDENTIFICATION * 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); Tcl_GetDouble(interp, Tcl_GetVar(interp, "tcl_version", TCL_GLOBAL_ONLY), &tclversion);
if (tclversion >= 8.1) if (tclversion >= 8.1)
putenv("PGCLIENTENCODING=UNICODE"); Tcl_PutEnv("PGCLIENTENCODING=UNICODE");
/* register all pgtcl commands */ /* register all pgtcl commands */
Tcl_CreateCommand(interp, Tcl_CreateCommand(interp,