|
31 | 31 | * ENHANCEMENTS, OR MODIFICATIONS. |
32 | 32 | * |
33 | 33 | * IDENTIFICATION |
34 | | - * $Header: /cvsroot/pgsql/src/pl/tcl/pltcl.c,v 1.41 2001/10/04 15:47:41 momjian Exp $ |
| 34 | + * $Header: /cvsroot/pgsql/src/pl/tcl/pltcl.c,v 1.42 2001/10/04 15:48:37 momjian Exp $ |
35 | 35 | * |
36 | 36 | **********************************************************************/ |
37 | 37 |
|
@@ -1372,7 +1372,9 @@ pltcl_elog(ClientData cdata, Tcl_Interp *interp, |
1372 | 1372 | * Call elog(), restore the original restart address |
1373 | 1373 | * and return to the caller (if not catched) |
1374 | 1374 | ************************************************************/ |
1375 | | -elog(level,argv[2]); |
| 1375 | +UTF_BEGIN; |
| 1376 | +elog(level,UTF_U2E(argv[2])); |
| 1377 | +UTF_END; |
1376 | 1378 | memcpy(&Warn_restart,&save_restart,sizeof(Warn_restart)); |
1377 | 1379 | returnTCL_OK; |
1378 | 1380 | } |
|