Add comment on why we're passing a useless 'false' to the plperl function compiler.
It's for compatibility with modules like PostgreSQL::PLPerl::NYTProf.
This commit is contained in:
parent
5a6ba62be5
commit
c73fe72e27
|
@ -1422,7 +1422,12 @@ plperl_create_sub(plperl_proc_desc *prodesc, char *s, Oid fn_oid)
|
|||
EXTEND(SP, 4);
|
||||
PUSHs(sv_2mortal(newSVstring(subname)));
|
||||
PUSHs(sv_2mortal(newRV_noinc((SV *) pragma_hv)));
|
||||
PUSHs(&PL_sv_no); /* XXX is $prolog in mkfunc needed any more? */
|
||||
/*
|
||||
* Use 'false' for $prolog in mkfunc, which is kept for compatibility
|
||||
* in case a module such as PostgreSQL::PLPerl::NYTprof replaces
|
||||
* the function compiler.
|
||||
*/
|
||||
PUSHs(&PL_sv_no);
|
||||
PUSHs(sv_2mortal(newSVstring(s)));
|
||||
PUTBACK;
|
||||
|
||||
|
|
Loading…
Reference in New Issue