From: Andrew Dunstan <andrew@dunslane.net>
Date: Wed, 23 Jan 2008 00:55:47 +0000 (+0000)
Subject: Document the fix for perl 5.10 with this comment:
X-Git-Tag: REL8_3_0~41
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=cd76ad6a2efcc3390ae5a87776e9de4743fe229f;p=postgresql

Document the fix for perl 5.10 with this comment:
 * The temporary enabling of the caller opcode here is to work around a
 * bug in perl 5.10, which unkindly changed the way its Safe.pm works, without
 * notice. It is quite safe, as caller is informational only, and in any case
 * we only enable it while we load the 'strict' module.
---

diff --git a/src/pl/plperl/plperl.c b/src/pl/plperl/plperl.c
index 4ac957d1ca..452c69cec7 100644
--- a/src/pl/plperl/plperl.c
+++ b/src/pl/plperl/plperl.c
@@ -1,7 +1,7 @@
 /**********************************************************************
  * plperl.c - perl as a procedural language for PostgreSQL
  *
- *	  $PostgreSQL: pgsql/src/pl/plperl/plperl.c,v 1.135 2008/01/22 20:17:37 adunstan Exp $
+ *	  $PostgreSQL: pgsql/src/pl/plperl/plperl.c,v 1.136 2008/01/23 00:55:47 adunstan Exp $
  *
  **********************************************************************/
 
@@ -260,6 +260,13 @@ _PG_init(void)
 #define SAFE_MODULE \
 	"require Safe; $Safe::VERSION"
 
+/* 
+ * The temporary enabling of the caller opcode here is to work around a
+ * bug in perl 5.10, which unkindly changed the way its Safe.pm works, without
+ * notice. It is quite safe, as caller is informational only, and in any case
+ * we only enable it while we load the 'strict' module.
+ */
+
 #define SAFE_OK \
 	"use vars qw($PLContainer); $PLContainer = new Safe('PLPerl');" \
 	"$PLContainer->permit_only(':default');" \