From: Neil Conway <neilc@samurai.com>
Date: Mon, 23 May 2005 02:02:52 +0000 (+0000)
Subject: Fix typo in PL/Perl Safe.pm initialization that prevented the proper
X-Git-Url: http://git.postgresql.org/gitweb/static/gitweb.js?a=commitdiff_plain;h=55d0849a19a89faba4e80bb6de1ba46ab9c0676d;p=users%2Fbernd%2Fpostgres.git

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 1031214992..11813d8d57 100644
--- a/src/pl/plperl/plperl.c
+++ b/src/pl/plperl/plperl.c
@@ -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]}]); }"
 			   ;