From 55d0849a19a89faba4e80bb6de1ba46ab9c0676d Mon Sep 17 00:00:00 2001 From: Neil Conway Date: Mon, 23 May 2005 02:02:52 +0000 Subject: [PATCH] Fix typo in PL/Perl Safe.pm initialization that prevented the proper sharing of %_SHARED. From Andrew Dunstan. --- src/pl/plperl/plperl.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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]}]); }" ; -- 2.39.5