diff options
| author | Andrew Dunstan <andrew@dunslane.net> | 2008-01-23 00:55:47 +0000 |
|---|---|---|
| committer | Andrew Dunstan <andrew@dunslane.net> | 2008-01-23 00:55:47 +0000 |
| commit | cd76ad6a2efcc3390ae5a87776e9de4743fe229f (patch) | |
| tree | 4efd2ab6380fd1d97f84be49aa6a63c4e0b9f94b /src | |
| parent | ac11d9dc4b18a7b88c488ec2a75857b691421953 (diff) | |
| download | postgresql-cd76ad6a2efcc3390ae5a87776e9de4743fe229f.tar.gz postgresql-cd76ad6a2efcc3390ae5a87776e9de4743fe229f.zip | |
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.
Diffstat (limited to 'src')
| -rw-r--r-- | src/pl/plperl/plperl.c | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/src/pl/plperl/plperl.c b/src/pl/plperl/plperl.c index 4ac957d1caa..452c69cec73 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');" \ |