aboutsummaryrefslogtreecommitdiff
path: root/src/pl/plperl/expected/plperl_init.out
diff options
context:
space:
mode:
Diffstat (limited to 'src/pl/plperl/expected/plperl_init.out')
-rw-r--r--src/pl/plperl/expected/plperl_init.out14
1 files changed, 14 insertions, 0 deletions
diff --git a/src/pl/plperl/expected/plperl_init.out b/src/pl/plperl/expected/plperl_init.out
new file mode 100644
index 00000000000..a2d4e18d2ac
--- /dev/null
+++ b/src/pl/plperl/expected/plperl_init.out
@@ -0,0 +1,14 @@
+-- test plperl.on_plperl_init errors are fatal
+-- Avoid need for custom_variable_classes = 'plperl'
+LOAD 'plperl';
+SET SESSION plperl.on_plperl_init = ' eval "1+1" ';
+SHOW plperl.on_plperl_init;
+ plperl.on_plperl_init
+-----------------------
+ eval "1+1"
+(1 row)
+
+DO $$ warn 42 $$ language plperl;
+ERROR: while executing plperl.on_plperl_init
+DETAIL: 'eval "string"' trapped by operation mask at line 2.
+CONTEXT: PL/Perl anonymous code block