diff options
Diffstat (limited to 'src/pl/plperl/expected/plperl_plperlu.out')
| -rw-r--r-- | src/pl/plperl/expected/plperl_plperlu.out | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/src/pl/plperl/expected/plperl_plperlu.out b/src/pl/plperl/expected/plperl_plperlu.out new file mode 100644 index 0000000000..80824e07ef --- /dev/null +++ b/src/pl/plperl/expected/plperl_plperlu.out @@ -0,0 +1,18 @@ +-- test plperl/plperlu interaction +CREATE OR REPLACE FUNCTION bar() RETURNS integer AS $$ + #die 'BANG!'; # causes server process to exit(2) + # alternative - causes server process to exit(255) + spi_exec_query("invalid sql statement"); +$$ language plperl; -- plperl or plperlu + +CREATE OR REPLACE FUNCTION foo() RETURNS integer AS $$ + spi_exec_query("SELECT * FROM bar()"); + return 1; +$$ LANGUAGE plperlu; -- must be opposite to language of bar + +SELECT * FROM bar(); -- throws exception normally +ERROR: syntax error at or near "invalid" at line 4. +CONTEXT: PL/Perl function "bar" +SELECT * FROM foo(); -- used to cause backend crash +ERROR: syntax error at or near "invalid" at line 4. at line 2. +CONTEXT: PL/Perl function "foo" |