diff options
| author | Neil Conway <neilc@samurai.com> | 2005-05-23 01:57:51 +0000 |
|---|---|---|
| committer | Neil Conway <neilc@samurai.com> | 2005-05-23 01:57:51 +0000 |
| commit | 353f111f980fb6a5969e63f4d7183dadd63118bc (patch) | |
| tree | 330a64bc6e67388fa986359b5ed04b53b8fe9b71 | |
| parent | 1b41965d5d8b461c22c28ab0f5f8368494da04d9 (diff) | |
| download | postgresql-353f111f980fb6a5969e63f4d7183dadd63118bc.tar.gz postgresql-353f111f980fb6a5969e63f4d7183dadd63118bc.zip | |
Fix typo in PL/Perl Safe.pm initialization that prevented the proper
sharing of %_SHARED. From Andrew Dunstan.
| -rw-r--r-- | src/pl/plperl/plperl.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/pl/plperl/plperl.c b/src/pl/plperl/plperl.c index 03a54bd1792..cfbee1f2839 100644 --- a/src/pl/plperl/plperl.c +++ b/src/pl/plperl/plperl.c @@ -33,7 +33,7 @@ * ENHANCEMENTS, OR MODIFICATIONS. * * IDENTIFICATION - * $PostgreSQL: pgsql/src/pl/plperl/plperl.c,v 1.73 2005/05/06 17:24:55 tgl Exp $ + * $PostgreSQL: pgsql/src/pl/plperl/plperl.c,v 1.74 2005/05/23 01:57:51 neilc Exp $ * **********************************************************************/ @@ -226,7 +226,7 @@ plperl_safe_init(void) "$PLContainer->permit_only(':default');" "$PLContainer->permit(qw[:base_math !:base_io sort time]);" "$PLContainer->share(qw[&elog &spi_exec_query &DEBUG &LOG " - "&INFO &NOTICE &WARNING &ERROR %SHARED ]);" + "&INFO &NOTICE &WARNING &ERROR %_SHARED ]);" "sub ::mksafefunc { return $PLContainer->reval(qq[sub { $_[0] $_[1]}]); }" ; |