Bruce Momjian wrote: > Can you send me a patch? > > > Hi, > > > > I have take a look to the source code concerning PL/Perl, it seems that 2 variables > > have a bad call : errgv and na. > > > > If you replace them by their normal call (in 5.6.0) PL_errgv and PL_na you will get > > success to compile the lib plperl.so. > > This patch (simple diff) applies to postgresql-7.0.2. See attachment... Regards Gilles DAROLD
328c328 < if (SvTRUE(GvSV(PL_errgv))) --- > if (SvTRUE(GvSV(errgv))) 334c334 < elog(ERROR, "creation of function failed : %s", SvPV(GvSV(PL_errgv), PL_na)); --- > elog(ERROR, "creation of function failed : %s", SvPV(GvSV(errgv), na)); 444c444 < if (SvTRUE(GvSV(PL_errgv))) --- > if (SvTRUE(GvSV(errgv))) 450c450 < elog(ERROR, "plperl : error from function : %s", SvPV(GvSV(PL_errgv), PL_na)); --- > elog(ERROR, "plperl : error from function : %s", SvPV(GvSV(errgv), >na)); 654c654 < (SvPV(perlret, PL_na), --- > (SvPV(perlret, na), 2192c2192 < output = perl_eval_pv(SvPV(output, PL_na), TRUE); --- > output = perl_eval_pv(SvPV(output, na), TRUE);
