|
10 | 10 | * |
11 | 11 | * |
12 | 12 | * IDENTIFICATION |
13 | | - * $Header: /cvsroot/pgsql/src/interfaces/libpgtcl/Attic/pgtcl.c,v 1.22 2001/09/10 14:49:12 momjian Exp $ |
| 13 | + * $Header: /cvsroot/pgsql/src/interfaces/libpgtcl/Attic/pgtcl.c,v 1.23 2001/09/17 00:42:42 tgl Exp $ |
14 | 14 | * |
15 | 15 | *------------------------------------------------------------------------- |
16 | 16 | */ |
@@ -45,7 +45,8 @@ Pgtcl_Init(Tcl_Interp *interp) |
45 | 45 | * Therefore PGCLIENTENCODING must be set to UNICODE for these versions. |
46 | 46 | */ |
47 | 47 | Tcl_GetDouble(interp,Tcl_GetVar(interp,"tcl_version",TCL_GLOBAL_ONLY),&tclversion); |
48 | | -if (tclversion >=8.1)setenv("PGCLIENTENCODING","UNICODE",1); |
| 48 | +if (tclversion >=8.1) |
| 49 | +putenv("PGCLIENTENCODING=UNICODE"); |
49 | 50 |
|
50 | 51 | /* register all pgtcl commands */ |
51 | 52 | Tcl_CreateCommand(interp, |
|