Index: ports/databases/postgresql82-server/files/patch-src-plperl-plperl
===================================================================
RCS file: ports/databases/postgresql82-server/files/patch-src-plperl-plperl
diff -N ports/databases/postgresql82-server/files/patch-src-plperl-plperl
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ ports/databases/postgresql82-server/files/patch-src-plperl-plperl	8 Jul 2011 07:23:06 -0000
@@ -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
+@@ -687,7 +687,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
+@@ -43,6 +43,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
++
+ /* routines from spi_internal.c */
+ int			spi_DEBUG(void);
+ int			spi_LOG(void);
Index: ports/databases/postgresql83-server/files/patch-src-plperl-plperl
===================================================================
RCS file: ports/databases/postgresql83-server/files/patch-src-plperl-plperl
diff -N ports/databases/postgresql83-server/files/patch-src-plperl-plperl
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ ports/databases/postgresql83-server/files/patch-src-plperl-plperl	8 Jul 2011 07:23:07 -0000
@@ -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
+@@ -685,7 +685,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
+@@ -43,6 +43,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
++
+ /* routines from spi_internal.c */
+ int			spi_DEBUG(void);
+ int			spi_LOG(void);
Index: ports/databases/postgresql84-server/files/patch-src-plperl-plperl
===================================================================
RCS file: ports/databases/postgresql84-server/files/patch-src-plperl-plperl
diff -N ports/databases/postgresql84-server/files/patch-src-plperl-plperl
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ ports/databases/postgresql84-server/files/patch-src-plperl-plperl	8 Jul 2011 07:23:09 -0000
@@ -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
+@@ -700,7 +700,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
+@@ -43,6 +43,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
++
+ /* routines from spi_internal.c */
+ int			spi_DEBUG(void);
+ int			spi_LOG(void);
Index: ports/databases/postgresql90-server/files/patch-src-plperl-plperl
===================================================================
RCS file: ports/databases/postgresql90-server/files/patch-src-plperl-plperl
diff -N ports/databases/postgresql90-server/files/patch-src-plperl-plperl
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ ports/databases/postgresql90-server/files/patch-src-plperl-plperl	8 Jul 2011 07:23:10 -0000
@@ -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 *);