Fix coding error in UTF conversion.

diff --git a/src/pl/tcl/pltcl.c b/src/pl/tcl/pltcl.c
index a6c508c57909f7035578318c169ed6cf7306fa02..ba17dc52b96f89b7537b3cf6257b0ad3a860e384 100644 (file)
--- a/src/pl/tcl/pltcl.c
+++ b/src/pl/tcl/pltcl.c
@@ -31,7 +31,7 @@
  *   ENHANCEMENTS, OR MODIFICATIONS.
  *
  * IDENTIFICATION
- *   $Header: /cvsroot/pgsql/src/pl/tcl/pltcl.c,v 1.54 2002/05/24 19:58:04 tgl Exp $
+ *   $Header: /cvsroot/pgsql/src/pl/tcl/pltcl.c,v 1.55 2002/05/24 21:04:34 tgl Exp $
  *
  **********************************************************************/
 
@@ -594,15 +594,17 @@ pltcl_func_handler(PG_FUNCTION_ARGS)
    if (SPI_finish() != SPI_OK_FINISH)
        elog(ERROR, "pltcl: SPI_finish() failed");
 
-   UTF_BEGIN;
    if (fcinfo->isnull)
        retval = (Datum) 0;
    else
+   {
+       UTF_BEGIN;
        retval = FunctionCall3(&prodesc->result_in_func,
                               PointerGetDatum(UTF_U2E(interp->result)),
                               ObjectIdGetDatum(prodesc->result_in_elem),
                               Int32GetDatum(-1));
-   UTF_END;
+       UTF_END;
+   }
 
    /************************************************************
     * Finally we may restore normal error handling.