2 -- Re-create these as plperlu instead of plperl
3 CREATE OR REPLACE FUNCTION auditor.set_audit_info(INT, INT) RETURNS VOID AS $$
4 $_SHARED{"eg_audit_user"} = $_[0];
5 $_SHARED{"eg_audit_ws"} = $_[1];
8 CREATE OR REPLACE FUNCTION auditor.get_audit_info() RETURNS TABLE (eg_user INT, eg_ws INT) AS $$
9 return [{eg_user => $_SHARED{"eg_audit_user"}, eg_ws => $_SHARED{"eg_audit_ws"}}];
12 CREATE OR REPLACE FUNCTION auditor.clear_audit_info() RETURNS VOID AS $$
13 delete($_SHARED{"eg_audit_user"});
14 delete($_SHARED{"eg_audit_ws"});