diff options
| author | Neil Conway <neilc@samurai.com> | 2004-02-02 00:35:08 +0000 |
|---|---|---|
| committer | Neil Conway <neilc@samurai.com> | 2004-02-02 00:35:08 +0000 |
| commit | b8362d465ddf58681d26333faa93334716d87493 (patch) | |
| tree | ac6ffea82eee515eb120273bf0653a780d398afc | |
| parent | d9d2ca8e8ebb1b1a593d3fe3942370c5d035c990 (diff) | |
| download | postgresql-b8362d465ddf58681d26333faa93334716d87493.tar.gz | |
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>
| -rw-r--r-- | src/interfaces/libpgtcl/pgtcl.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interfaces/libpgtcl/pgtcl.c b/src/interfaces/libpgtcl/pgtcl.c index 7c4432e922..a9dc10e27a 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, |