diff options
Diffstat (limited to 'src/pl/plperl/sql/plperl.sql')
| -rw-r--r-- | src/pl/plperl/sql/plperl.sql | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/src/pl/plperl/sql/plperl.sql b/src/pl/plperl/sql/plperl.sql index df17834952f..f12e2f72516 100644 --- a/src/pl/plperl/sql/plperl.sql +++ b/src/pl/plperl/sql/plperl.sql @@ -361,3 +361,11 @@ CREATE OR REPLACE FUNCTION perl_spi_prepared_bad(double precision) RETURNS doubl $$ LANGUAGE plperl; SELECT perl_spi_prepared_bad(4.35) as "double precision"; +-- simple test of a DO block +DO $$ + $a = 'This is a test'; + elog(NOTICE, $a); +$$ LANGUAGE plperl; + +-- check that restricted operations are rejected in a plperl DO block +DO $$ use Config; $$ LANGUAGE plperl; |