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);