Re: PL/Perl compilation error - Mailing list pgsql-general

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