diff options
| -rw-r--r-- | src/pl/plperl/expected/plperl_init.out | 14 | ||||
| -rw-r--r-- | src/pl/plperl/sql/plperl_init.sql | 10 |
2 files changed, 24 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 diff --git a/src/pl/plperl/sql/plperl_init.sql b/src/pl/plperl/sql/plperl_init.sql new file mode 100644 index 00000000000..69b12e9d25f --- /dev/null +++ b/src/pl/plperl/sql/plperl_init.sql @@ -0,0 +1,10 @@ +-- 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; + +DO $$ warn 42 $$ language plperl; |