|
|
|
@ -33,7 +33,7 @@ |
|
|
|
|
* ENHANCEMENTS, OR MODIFICATIONS. |
|
|
|
|
* |
|
|
|
|
* IDENTIFICATION |
|
|
|
|
* $PostgreSQL: pgsql/src/pl/plperl/plperl.c,v 1.52 2004/10/06 16:36:02 momjian Exp $ |
|
|
|
|
* $PostgreSQL: pgsql/src/pl/plperl/plperl.c,v 1.53 2004/10/07 15:21:57 momjian Exp $ |
|
|
|
|
* |
|
|
|
|
**********************************************************************/ |
|
|
|
|
|
|
|
|
@ -1151,7 +1151,6 @@ plperl_func_handler(PG_FUNCTION_ARGS) |
|
|
|
|
} |
|
|
|
|
else |
|
|
|
|
/* perl string to Datum */ |
|
|
|
|
|
|
|
|
|
retval = FunctionCall3(&prodesc->result_in_func, |
|
|
|
|
PointerGetDatum(SvPV(perlret, PL_na)), |
|
|
|
|
ObjectIdGetDatum(prodesc->result_typioparam), |
|
|
|
|