diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/pl/plperl/expected/plperl.out | 4 | ||||
| -rw-r--r-- | src/pl/plperl/expected/plperl_init.out | 10 | ||||
| -rw-r--r-- | src/pl/plperl/sql/plperl.sql | 2 | ||||
| -rw-r--r-- | src/pl/plperl/sql/plperl_init.sql | 2 |
4 files changed, 9 insertions, 9 deletions
diff --git a/src/pl/plperl/expected/plperl.out b/src/pl/plperl/expected/plperl.out index 29c1d11c447..d23a3020a33 100644 --- a/src/pl/plperl/expected/plperl.out +++ b/src/pl/plperl/expected/plperl.out @@ -626,8 +626,8 @@ DO $$ open my $fh, "</nonesuch"; $$ LANGUAGE plperl; ERROR: 'open' trapped by operation mask at line 1. CONTEXT: PL/Perl anonymous code block -- check that eval is allowed and eval'd restricted ops are caught -DO $$ eval q{chdir '.'}; warn "Caught: $@"; $$ LANGUAGE plperl; -WARNING: Caught: 'chdir' trapped by operation mask at line 2. +DO $$ eval q{chdir '.';}; warn "Caught: $@"; $$ LANGUAGE plperl; +WARNING: Caught: 'chdir' trapped by operation mask at line 1. CONTEXT: PL/Perl anonymous code block -- check that compiling do (dofile opcode) is allowed -- but that executing it for a file not already loaded (via require) dies diff --git a/src/pl/plperl/expected/plperl_init.out b/src/pl/plperl/expected/plperl_init.out index 4a04dbd6f37..f9dab03dafa 100644 --- a/src/pl/plperl/expected/plperl_init.out +++ b/src/pl/plperl/expected/plperl_init.out @@ -1,14 +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 = ' system("/nonesuch") '; +SET SESSION plperl.on_plperl_init = ' system("/nonesuch"); '; SHOW plperl.on_plperl_init; - plperl.on_plperl_init ------------------------ - system("/nonesuch") + plperl.on_plperl_init +------------------------ + system("/nonesuch"); (1 row) DO $$ warn 42 $$ language plperl; -ERROR: 'system' trapped by operation mask at line 2. +ERROR: 'system' trapped by operation mask at line 1. CONTEXT: while executing plperl.on_plperl_init PL/Perl anonymous code block diff --git a/src/pl/plperl/sql/plperl.sql b/src/pl/plperl/sql/plperl.sql index ad361614c48..dc6b1694644 100644 --- a/src/pl/plperl/sql/plperl.sql +++ b/src/pl/plperl/sql/plperl.sql @@ -405,7 +405,7 @@ DO $$ qx("/nonesuch"); $$ LANGUAGE plperl; DO $$ open my $fh, "</nonesuch"; $$ LANGUAGE plperl; -- check that eval is allowed and eval'd restricted ops are caught -DO $$ eval q{chdir '.'}; warn "Caught: $@"; $$ LANGUAGE plperl; +DO $$ eval q{chdir '.';}; warn "Caught: $@"; $$ LANGUAGE plperl; -- check that compiling do (dofile opcode) is allowed -- but that executing it for a file not already loaded (via require) dies diff --git a/src/pl/plperl/sql/plperl_init.sql b/src/pl/plperl/sql/plperl_init.sql index f6a32b9bae4..50288cb4156 100644 --- a/src/pl/plperl/sql/plperl_init.sql +++ b/src/pl/plperl/sql/plperl_init.sql @@ -3,7 +3,7 @@ -- Avoid need for custom_variable_classes = 'plperl' LOAD 'plperl'; -SET SESSION plperl.on_plperl_init = ' system("/nonesuch") '; +SET SESSION plperl.on_plperl_init = ' system("/nonesuch"); '; SHOW plperl.on_plperl_init; |