diff options
Diffstat (limited to 'src/pl/plperl/expected/plperl_shared.out')
-rw-r--r-- | src/pl/plperl/expected/plperl_shared.out | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/src/pl/plperl/expected/plperl_shared.out b/src/pl/plperl/expected/plperl_shared.out new file mode 100644 index 00000000000..72ae1ba7be7 --- /dev/null +++ b/src/pl/plperl/expected/plperl_shared.out @@ -0,0 +1,26 @@ +-- test the shared hash +create function setme(key text, val text) returns void language plperl as $$ + + my $key = shift; + my $val = shift; + $_SHARED{$key}= $val; + +$$; +create function getme(key text) returns text language plperl as $$ + + my $key = shift; + return $_SHARED{$key}; + +$$; +select setme('ourkey','ourval'); + setme +------- + +(1 row) + +select getme('ourkey'); + getme +-------- + ourval +(1 row) + |