request for more descriptive plperl error messages

I've been maintaining a database that contains a very large number of 
plperl functions. An error in one of these functions will produce a 
message such as:

ERROR:  error from Perl function: syntax error at or near "." at line 58.

This is helpful to a degree but the critical missing information is the 
function name (schema name would be nice too). With the current behavior 
have to guess at what function might be causing this problem and then 
look up the line number and see if that makes sense. I then repeat this 
for the other functions until I get lucky.

Looking at src/pl/plperl/plperl.c I've found the following code:       /* XXX need to find a way to assign an errcode
here*/       ereport(ERROR,               (errmsg("error from Perl function: %s",
strip_trailing_ws(SvPV(ERRSV,PL_na)))));
 

This is duplicated in plperl_call_perl_func() and 
plperl_call_perl_trigger_func()

I'd like to modify the code to return the perl function name and submit 
a patch but I've never developed in the postgres code base before and am 
not sure where to start. Can the function and schema name be found in 
the FunctionCallInfo structure that is passed? Is this an easy thing to 
do or a hard thing to do? Would anyone else find it useful? Does anyone 
else want to do it?

thanks!
Robert