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
- (unnamed) (text/plain)
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