diff options
| author | Tom Lane | 2020-01-30 15:51:31 +0000 |
|---|---|---|
| committer | Tom Lane | 2020-01-30 15:51:40 +0000 |
| commit | 2520cf8c2a0a1d679094dffbd99871884e620ed5 (patch) | |
| tree | 515e6352e948e09861d354d0835d08820b0ef355 | |
| parent | e6f1e560e4c6e764080af8c8d5e76cdea4d8d00a (diff) | |
Fix test failure with non-MULTIPLICITY Perl interpreters.
Per buildfarm.
| -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; |