Skip to content

P
Postgres FD Implementation
Commit ec7ddc15 authored by Tom Lane's avatar Tom Lane
Browse files
Options

Use portable putenv(), not unportable setenv().

parent 220ae48c
Hide whitespace changes
Inline Side-by-side
Showing with 3 additions and 2 deletions
src/interfaces/libpgtcl/pgtcl.c
View file @ ec7ddc15
...@@ -10,7 +10,7 @@ ...@@ -10,7 +10,7 @@
* *
* *
* IDENTIFICATION * IDENTIFICATION
* $Header: /cvsroot/pgsql/src/interfaces/libpgtcl/Attic/pgtcl.c,v 1.22 2001/09/10 14:49:12 momjian Exp $ * $Header: /cvsroot/pgsql/src/interfaces/libpgtcl/Attic/pgtcl.c,v 1.23 2001/09/17 00:42:42 tgl Exp $
* *
*------------------------------------------------------------------------- *-------------------------------------------------------------------------
*/ */
...@@ -45,7 +45,8 @@ Pgtcl_Init(Tcl_Interp *interp) ...@@ -45,7 +45,8 @@ Pgtcl_Init(Tcl_Interp *interp)
* Therefore PGCLIENTENCODING must be set to UNICODE for these versions. * Therefore PGCLIENTENCODING must be set to UNICODE for these versions.
*/ */
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) setenv("PGCLIENTENCODING", "UNICODE", 1); if (tclversion >= 8.1)
putenv("PGCLIENTENCODING=UNICODE");
/* register all pgtcl commands */ /* register all pgtcl commands */
Tcl_CreateCommand(interp, Tcl_CreateCommand(interp,
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment