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.

diff --git a/src/pl/plperl/plperl.c b/src/pl/plperl/plperl.c
index ece3931982e5cb0d1d6e73c6f96b213ecc61358e..2ac716855892a7c47147faacaadfe2ad3fb545fc 100644 (file)
--- 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;