diff options
Diffstat (limited to 'src/pl/plperl/sql')
| -rw-r--r-- | src/pl/plperl/sql/plperl.sql | 2 | ||||
| -rw-r--r-- | src/pl/plperl/sql/plperl_init.sql | 2 |
2 files changed, 2 insertions, 2 deletions
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; |