Re: [GENERAL] PL/Perl compilation error

Bruce Momjian <pgman@candle.pha.pa.us>

From: Bruce Momjian <pgman@candle.pha.pa.us>
To: gilles@darold.net
Cc: PostgreSQL-development <pgsql-hackers@postgreSQL.org>
Date: 2000-10-16T18:36:45Z
Lists: pgsql-hackers

Attachments

I can not apply this.  Seems it has changed in the current tree.  Here
is the current plperl.c file.  

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


-- 
  Bruce Momjian                        |  http://candle.pha.pa.us
  pgman@candle.pha.pa.us               |  (610) 853-3000
  +  If your life is a hard drive,     |  830 Blythe Avenue
  +  Christ can be your backup.        |  Drexel Hill, Pennsylvania 19026