From 3903a44e88f1251f7e629effa0cda367871e2941 Mon Sep 17 00:00:00 2001 From: Sunpoet Po-Chuan Hsieh Date: Sun, 14 Aug 2011 01:32:13 +0000 Subject: - Fix databases/p5-postgresql-plperl build with Perl 5.14 This patch is for PostgreSQL 8.2, 8.3, 8.4 and 9.0. PostgreSQL 9.1 has it already. PR: ports/158727 Submitted by: sunpoet (myself) Approved by: girgen (maintainer timeout, 5 weeks) --- .../files/patch-src-plperl-plperl | 28 ++++++++++++++++++++++ 1 file changed, 28 insertions(+) create mode 100644 databases/postgresql90-server/files/patch-src-plperl-plperl (limited to 'databases/postgresql90-server/files/patch-src-plperl-plperl') diff --git a/databases/postgresql90-server/files/patch-src-plperl-plperl b/databases/postgresql90-server/files/patch-src-plperl-plperl new file mode 100644 index 000000000000..6f84a60e950d --- /dev/null +++ b/databases/postgresql90-server/files/patch-src-plperl-plperl @@ -0,0 +1,28 @@ +Obtained from: http://archives.postgresql.org/pgsql-hackers/2011-04/msg01283.php +Reference: http://search.cpan.org/~jesse/perl-5.14.0/pod/perldelta.pod#GvCV()_and_GvGP()_are_no_longer_lvalues + +--- src/pl/plperl/plperl.c.orig 2011-04-15 11:15:53.000000000 +0800 ++++ src/pl/plperl/plperl.c 2011-05-19 20:39:34.126713700 +0800 +@@ -874,7 +874,7 @@ + if (!isGV_with_GP(sv) || !GvCV(sv)) + continue; + SvREFCNT_dec(GvCV(sv)); /* free the CV */ +- GvCV(sv) = NULL; /* prevent call via GV */ ++ GvCV_set(sv, NULL); /* prevent call via GV */ + } + hv_clear(stash); + +--- src/pl/plperl/plperl.h.orig 2011-04-15 11:15:53.000000000 +0800 ++++ src/pl/plperl/plperl.h 2011-05-19 20:39:34.127713548 +0800 +@@ -42,6 +42,11 @@ + #undef bool + #endif + ++/* supply GvCV_set if it's missing - ppport.h doesn't supply it, unfortunately */ ++#ifndef GvCV_set ++#define GvCV_set(gv, cv) (GvCV(gv) = cv) ++#endif ++ + /* declare routines from plperl.c for access by .xs files */ + HV *plperl_spi_exec(char *, int); + void plperl_return_next(SV *); -- cgit v1.2.3