blob: 72ae1ba7be7bdfb2d6b43b88c22775b1e14716a7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
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)
|
