database/postgres
1
0
Fork 0
mirror of https://github.com/postgres/postgres.git synced 2025-06-25 01:02:05 +03:00
Code Activity

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 00:35:08 +00:00
parent d9d2ca8e8e
commit b8362d465d
1 changed files with 2 additions and 2 deletions
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
* $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); 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,