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 36f9ab74b112f14ca02b1c467be584a3ef79a8b6..6f78bc8a1fd5e6c6cf695bf46b69051d726a54d6 100644 (file)
--- a/src/pl/plperl/plperl.c
+++ b/src/pl/plperl/plperl.c
@@ -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');" \