diff options
Diffstat (limited to 'src/pl/plperl/sql/plperl.sql')
| -rw-r--r-- | src/pl/plperl/sql/plperl.sql | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/pl/plperl/sql/plperl.sql b/src/pl/plperl/sql/plperl.sql index 7f02b2fe225..dace848e838 100644 --- a/src/pl/plperl/sql/plperl.sql +++ b/src/pl/plperl/sql/plperl.sql @@ -373,7 +373,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 |