diff options
| author | Sunpoet Po-Chuan Hsieh <sunpoet@FreeBSD.org> | 2011-08-14 01:32:13 +0000 |
|---|---|---|
| committer | Sunpoet Po-Chuan Hsieh <sunpoet@FreeBSD.org> | 2011-08-14 01:32:13 +0000 |
| commit | 3903a44e88f1251f7e629effa0cda367871e2941 (patch) | |
| tree | 47b1caf1e080cbd9486cca1ad20cfc8c15ca905b /databases/postgresql90-server/files | |
| parent | - Update to 0.4.3 (diff) | |
- 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)
Diffstat (limited to 'databases/postgresql90-server/files')
| -rw-r--r-- | databases/postgresql90-server/files/patch-src-plperl-plperl | 28 |
1 files changed, 28 insertions, 0 deletions
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 *); |