database/postgres
1
0
Fork 0
mirror of https://github.com/postgres/postgres.git synced 2025-07-11 10:01:57 +03:00
Code Activity

Add comment on why we're passing a useless 'false' to the plperl function compiler.

Browse Source 
It's for compatibility with modules like PostgreSQL::PLPerl::NYTProf.
This commit is contained in:
Andrew Dunstan
2011-02-02 12:45:42 -05:00
parent 5a6ba62be5
commit c73fe72e27
1 changed files with 6 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
src/pl/plperl/plperl.c
View File

@ -1422,7 +1422,12 @@ plperl_create_sub(plperl_proc_desc *prodesc, char *s, Oid fn_oid)
EXTEND(SP, 4); EXTEND(SP, 4);
PUSHs(sv_2mortal(newSVstring(subname))); PUSHs(sv_2mortal(newSVstring(subname)));
PUSHs(sv_2mortal(newRV_noinc((SV *) pragma_hv))); 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))); PUSHs(sv_2mortal(newSVstring(s)));
PUTBACK; PUTBACK;