Commit7badf1b

committed

Ensure $_SHARED is declared in the main:: namespace, per bugs #5570 and #5571.

Author: Alex Hunsaker

1 parent314ef0e commit7badf1bCopy full SHA for 7badf1b

File tree

+32

-2

lines changed

+32

-2

lines changed

Lines changed: 19 additions & 0 deletions

Original file line number	Diff line number	Diff line change
`@@ -36,3 +36,22 @@ select getme('on_init');`
`36`	`36`	`42`
`37`	`37`	`(1 row)`
`38`	`38`
	`39`	`+-- verify that we can use $_SHARED in strict mode`
	`40`	`+create or replace function perl_shared() returns int as $$`
	`41`	`+use strict;`
	`42`	`+my $val = $_SHARED{'stuff'};`
	`43`	`+$_SHARED{'stuff'} = '1';`
	`44`	`+return $val;`
	`45`	`+$$ language plperl;`
	`46`	`+select perl_shared();`
	`47`	`+ perl_shared`
	`48`	`+-------------`
	`49`	`+`
	`50`	`+(1 row)`
	`51`	`+`
	`52`	`+select perl_shared();`
	`53`	`+ perl_shared`
	`54`	`+-------------`
	`55`	`+ 1`
	`56`	`+(1 row)`
	`57`	`+`

Lines changed: 2 additions & 2 deletions

Original file line number	Diff line number	Diff line change
`@@ -1,15 +1,15 @@`
`1`	`1`
`2`		`-# $PostgreSQL: pgsql/src/pl/plperl/plc_perlboot.pl,v 1.6 2010/05/13 16:39:43 adunstan Exp $`
	`2`	`+# $PostgreSQL: pgsql/src/pl/plperl/plc_perlboot.pl,v 1.7 2010/07/27 04:18:28 alvherre Exp $`
`3`	`3`
`4`	`4`	`use 5.008001;`
	`5`	`+use varsqw(%_SHARED);`
`5`	`6`
`6`	`7`	`PostgreSQL::InServer::Util::bootstrap();`
`7`	`8`
`8`	`9`	`packagePostgreSQL::InServer;`
`9`	`10`
`10`	`11`	`use strict;`
`11`	`12`	`use warnings;`
`12`		`-use varsqw(%_SHARED);`
`13`	`13`
`14`	`14`	`subplperl_warn {`
`15`	`15`	`(my$msg =shift) =~s/$eval\d+$//g;`

Lines changed: 11 additions & 0 deletions

Original file line number	Diff line number	Diff line change
`@@ -29,3 +29,14 @@ select setme('ourkey','ourval');`
`29`	`29`	`select getme('ourkey');`
`30`	`30`
`31`	`31`	`select getme('on_init');`
	`32`	`+`
	`33`	`+-- verify that we can use $_SHARED in strict mode`
	`34`	`+create or replacefunctionperl_shared() returnsintas $$`
	`35`	`+use strict;`
	`36`	`+my $val= $_SHARED{'stuff'};`
	`37`	`+$_SHARED{'stuff'}='1';`
	`38`	`+return $val;`
	`39`	`+$$ language plperl;`
	`40`	`+`
	`41`	`+select perl_shared();`
	`42`	`+select perl_shared();`

Comments

(0)