|
31 | 31 | * ENHANCEMENTS, OR MODIFICATIONS. |
32 | 32 | * |
33 | 33 | * IDENTIFICATION |
34 | | - * $Header: /cvsroot/pgsql/src/pl/tcl/pltcl.c,v 1.54 2002/05/2419:58:04 tgl Exp $ |
| 34 | + * $Header: /cvsroot/pgsql/src/pl/tcl/pltcl.c,v 1.55 2002/05/2421:04:34 tgl Exp $ |
35 | 35 | * |
36 | 36 | **********************************************************************/ |
37 | 37 |
|
@@ -594,15 +594,17 @@ pltcl_func_handler(PG_FUNCTION_ARGS) |
594 | 594 | if (SPI_finish()!=SPI_OK_FINISH) |
595 | 595 | elog(ERROR,"pltcl: SPI_finish() failed"); |
596 | 596 |
|
597 | | -UTF_BEGIN; |
598 | 597 | if (fcinfo->isnull) |
599 | 598 | retval= (Datum)0; |
600 | 599 | else |
| 600 | +{ |
| 601 | +UTF_BEGIN; |
601 | 602 | retval=FunctionCall3(&prodesc->result_in_func, |
602 | 603 | PointerGetDatum(UTF_U2E(interp->result)), |
603 | 604 | ObjectIdGetDatum(prodesc->result_in_elem), |
604 | 605 | Int32GetDatum(-1)); |
605 | | -UTF_END; |
| 606 | +UTF_END; |
| 607 | +} |
606 | 608 |
|
607 | 609 | /************************************************************ |
608 | 610 | * Finally we may restore normal error handling. |
|