diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/pl/plperl/expected/plperl_setup.out | 3 | ||||
| -rw-r--r-- | src/pl/plperl/sql/plperl_setup.sql | 5 |
2 files changed, 8 insertions, 0 deletions
diff --git a/src/pl/plperl/expected/plperl_setup.out b/src/pl/plperl/expected/plperl_setup.out index faeb645c5f8..a1a24dfb41c 100644 --- a/src/pl/plperl/expected/plperl_setup.out +++ b/src/pl/plperl/expected/plperl_setup.out @@ -32,6 +32,9 @@ SELECT foo1(); 1 (1 row) +-- Must reconnect to avoid failure with non-MULTIPLICITY Perl interpreters +\c - +SET ROLE regress_user1; -- Should be able to change privileges on the language revoke all on language plperl from public; SET ROLE regress_user2; diff --git a/src/pl/plperl/sql/plperl_setup.sql b/src/pl/plperl/sql/plperl_setup.sql index ae48feae863..74844782f87 100644 --- a/src/pl/plperl/sql/plperl_setup.sql +++ b/src/pl/plperl/sql/plperl_setup.sql @@ -31,6 +31,11 @@ CREATE EXTENSION plperlu; -- fail CREATE FUNCTION foo1() returns int language plperl as '1;'; SELECT foo1(); +-- Must reconnect to avoid failure with non-MULTIPLICITY Perl interpreters +\c - + +SET ROLE regress_user1; + -- Should be able to change privileges on the language revoke all on language plperl from public; |