Commit353f111

Neil Conway

committed

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

sharing of %_SHARED. From Andrew Dunstan.

1 parent1b41965 commit353f111Copy full SHA for 353f111

File tree

-2

lines changed

-2

lines changed

Lines changed: 2 additions & 2 deletions

Original file line number	Diff line number	Diff line change
`@@ -33,7 +33,7 @@`
`33`	`33`	`* ENHANCEMENTS, OR MODIFICATIONS.`
`34`	`34`	`*`
`35`	`35`	`* IDENTIFICATION`
`36`		`- * $PostgreSQL: pgsql/src/pl/plperl/plperl.c,v 1.73 2005/05/06 17:24:55 tgl Exp $`
	`36`	`+ * $PostgreSQL: pgsql/src/pl/plperl/plperl.c,v 1.74 2005/05/23 01:57:51 neilc Exp $`
`37`	`37`	`*`
`38`	`38`	`**********************************************************************/`
`39`	`39`
`@@ -226,7 +226,7 @@ plperl_safe_init(void)`
`226`	`226`	`"$PLContainer->permit_only(':default');"`
`227`	`227`	`"$PLContainer->permit(qw[:base_math !:base_io sort time]);"`
`228`	`228`	`"$PLContainer->share(qw[&elog &spi_exec_query &DEBUG &LOG "`
`229`		`-"&INFO &NOTICE &WARNING &ERROR %SHARED ]);"`
	`229`	`+"&INFO &NOTICE &WARNING &ERROR %_SHARED ]);"`
`230`	`230`	`"sub ::mksafefunc { return $PLContainer->reval(qq[sub { $_[0] $_[1]}]); }"`
`231`	`231`	`;`
`232`	`232`

Comments

(0)