Commitc73fe72

committed

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.

1 parent5a6ba62 commitc73fe72Copy full SHA for c73fe72

File tree

-1

lines changed

-1

lines changed

Lines changed: 6 additions & 1 deletion

Original file line number	Diff line number	Diff line change
`@@ -1422,7 +1422,12 @@ plperl_create_sub(plperl_proc_desc prodesc, char s, Oid fn_oid)`
`1422`	`1422`	`EXTEND(SP,4);`
`1423`	`1423`	`PUSHs(sv_2mortal(newSVstring(subname)));`
`1424`	`1424`	`PUSHs(sv_2mortal(newRV_noinc((SV*)pragma_hv)));`
`1425`		`-PUSHs(&PL_sv_no);/* XXX is $prolog in mkfunc needed any more? */`
	`1425`	`+/*`
	`1426`	`+ * Use 'false' for $prolog in mkfunc, which is kept for compatibility`
	`1427`	`+ * in case a module such as PostgreSQL::PLPerl::NYTprof replaces`
	`1428`	`+ * the function compiler.`
	`1429`	`+ */`
	`1430`	`+PUSHs(&PL_sv_no);`
`1426`	`1431`	`PUSHs(sv_2mortal(newSVstring(s)));`
`1427`	`1432`	`PUTBACK;`
`1428`	`1433`

Comments

(0)