aboutsummaryrefslogtreecommitdiff
path: root/src/pl/plperl/expected/plperl_shared.out
diff options
context:
space:
mode:
Diffstat (limited to 'src/pl/plperl/expected/plperl_shared.out')
-rw-r--r--src/pl/plperl/expected/plperl_shared.out26
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)
+