Fix typo in PL/Perl Safe.pm initialization that prevented the proper

sharing of %_SHARED. From Andrew Dunstan.

diff --git a/src/pl/plperl/plperl.c b/src/pl/plperl/plperl.c
index 2167f3f548bd5a4f60707cc3a87572e3cefce025..73eb422e1a6e52d93d77f0fab8be21160708f799 100644 (file)
--- 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.67 2005/01/14 16:25:42 tgl Exp $
+ *       $PostgreSQL: pgsql/src/pl/plperl/plperl.c,v 1.67.4.1 2005/05/23 02:02:52 neilc Exp $
  *
  **********************************************************************/
 
@@ -224,7 +224,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]}]); }"
                           ;