1
-- test warnings and errors from plperl
2
create or replace function perl_elog(text) returns void language plperl as $$
8
select perl_elog('explicit elog');
15
create or replace function perl_warn(text) returns void language plperl as $$
21
select perl_warn('implicit elog via warn');
22
NOTICE: implicit elog via warn at line 4.
29
-- test strict mode on/off
30
SET plperl.use_strict = true;
31
create or replace function uses_global() returns text language plperl as $$
35
return 'uses_global worked';
38
ERROR: creation of Perl function "uses_global" failed: Global symbol "$global" requires explicit package name at line 3.
39
Global symbol "$other_global" requires explicit package name at line 4.
41
ERROR: function uses_global() does not exist
42
LINE 1: select uses_global();
44
HINT: No function matches the given name and argument types. You might need to add explicit type casts.
45
SET plperl.use_strict = false;
46
create or replace function uses_global() returns text language plperl as $$
50
return 'uses_global worked';