summaryrefslogtreecommitdiffstats
path: root/src/pl/plperl/expected/plperl_init.out
diff options
context:
space:
mode:
authorDaniel Baumann <daniel.baumann@progress-linux.org>2024-05-04 12:15:05 +0000
committerDaniel Baumann <daniel.baumann@progress-linux.org>2024-05-04 12:15:05 +0000
commit46651ce6fe013220ed397add242004d764fc0153 (patch)
tree6e5299f990f88e60174a1d3ae6e48eedd2688b2b /src/pl/plperl/expected/plperl_init.out
parentInitial commit. (diff)
downloadpostgresql-14-upstream.tar.xz
postgresql-14-upstream.zip
Adding upstream version 14.5.upstream/14.5upstream
Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>
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 0000000..133828e
--- /dev/null
+++ b/src/pl/plperl/expected/plperl_init.out
@@ -0,0 +1,14 @@
+-- test plperl.on_plperl_init errors are fatal
+-- This test tests setting on_plperl_init after loading plperl
+LOAD 'plperl';
+SET SESSION plperl.on_plperl_init = ' system("/nonesuch"); ';
+SHOW plperl.on_plperl_init;
+ plperl.on_plperl_init
+------------------------
+ system("/nonesuch");
+(1 row)
+
+DO $$ warn 42 $$ language plperl;
+ERROR: 'system' trapped by operation mask at line 1.
+CONTEXT: while executing plperl.on_plperl_init
+PL/Perl anonymous code block