From eefdbba0629b1ddeb6bf1c2bf1b8858d16b79c8d Mon Sep 17 00:00:00 2001 From: Bruce Momjian Date: Wed, 6 Jul 2005 22:44:49 +0000 Subject: Currently, nonfatal warnings are not trapped (as they should be) by plperl - the attached small patch remedies that omission, and adds a small regression test for error and warning output - the new regression input and expected output are in separate attached files. Andrew Dunstan --- src/pl/plperl/sql/plperl_elog.sql | 23 +++++++++++++++++++++++ 1 file changed, 23 insertions(+) create mode 100644 src/pl/plperl/sql/plperl_elog.sql (limited to 'src/pl/plperl/sql') diff --git a/src/pl/plperl/sql/plperl_elog.sql b/src/pl/plperl/sql/plperl_elog.sql new file mode 100644 index 0000000000..47cb742d3f --- /dev/null +++ b/src/pl/plperl/sql/plperl_elog.sql @@ -0,0 +1,23 @@ +-- test warnings and errors from plperl + +create or replace function perl_elog(text) returns void language plperl as $$ + + my $msg = shift; + elog(NOTICE,$msg); + +$$; + +select perl_elog('explicit elog'); + +create or replace function perl_warn(text) returns void language plperl as $$ + + my $msg = shift; + warn($msg); + +$$; + +select perl_warn('implicit elog via warn'); + + + + -- cgit v1.2.1