Index: src/bin/scripts/createlang.sh
===================================================================
RCS file: /cvs/pgsql/pgsql/src/bin/scripts/createlang.sh,v
retrieving revision 1.29
retrieving revision 1.30
diff -r1.29 -r1.30
212a213
> 		lancomp="PL/Perl (untrusted)"
214c215
< 		handler="plperl_call_handler"
---
> 		handler="plperlu_call_handler"
Index: src/pl/plperl/plperl.c
===================================================================
RCS file: /cvs/pgsql/pgsql/src/pl/plperl/plperl.c,v
retrieving revision 1.22
retrieving revision 1.22.2.1
diff -r1.22 -r1.22.2.1
277a281,294
> 
> 
>  
> /*
>  * Alternate handler for unsafe functions
>  */
> PG_FUNCTION_INFO_V1(plperlu_call_handler);
> 
> /* keep non-static */
> Datum
> plperlu_call_handler(PG_FUNCTION_ARGS)
> {
>         return plperl_call_handler(fcinfo);
> }