diff options
| author | Andrew Dunstan <andrew@dunslane.net> | 2011-02-02 12:45:42 -0500 |
|---|---|---|
| committer | Andrew Dunstan <andrew@dunslane.net> | 2011-02-02 12:45:42 -0500 |
| commit | c73fe72e2735d20aa132640d8fab4e0eca1ced95 (patch) | |
| tree | 055ec7a9272979e5b4052effc1d9c6a2d7c06e49 /src/pl/plperl/plperl.c | |
| parent | 5a6ba62be5364dbf973fd9b8631fd60acda03440 (diff) | |
| download | postgresql-c73fe72e2735d20aa132640d8fab4e0eca1ced95.tar.gz postgresql-c73fe72e2735d20aa132640d8fab4e0eca1ced95.zip | |
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.
Diffstat (limited to 'src/pl/plperl/plperl.c')
| -rw-r--r-- | src/pl/plperl/plperl.c | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/src/pl/plperl/plperl.c b/src/pl/plperl/plperl.c index ece3931982e..2ac71685589 100644 --- a/src/pl/plperl/plperl.c +++ b/src/pl/plperl/plperl.c @@ -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; |