From: Andrew Dunstan <andrew@dunslane.net>
Date: Sat, 4 Jun 2011 23:37:50 +0000 (-0400)
Subject: Allow building with perl 5.14.
X-Git-Url: http://git.postgresql.org/gitweb/static/gitweb.js?a=commitdiff_plain;h=f604891a06a6662502a2b13607308fef67e4257d;p=users%2Fc2main%2Fpostgres.git

Allow building with perl 5.14.

Patch from Alex Hunsaker.
---

diff --git a/src/pl/plperl/plperl.c b/src/pl/plperl/plperl.c
index d3b86533ec..64a4fd45d6 100644
--- a/src/pl/plperl/plperl.c
+++ b/src/pl/plperl/plperl.c
@@ -687,7 +687,7 @@ plperl_trusted_init(void)
 		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);
 	/* invalidate assorted caches */
diff --git a/src/pl/plperl/plperl.h b/src/pl/plperl/plperl.h
index c8aa185a3b..48828b6023 100644
--- a/src/pl/plperl/plperl.h
+++ b/src/pl/plperl/plperl.h
@@ -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);