mirror/postgresql
2
0
Fork 0
mirror of https://git.postgresql.org/git/postgresql.git synced 2025-03-01 19:45:33 +08:00
Code Issues Packages Projects Releases Wiki Activity

Fix test failure with non-MULTIPLICITY Perl interpreters.

Browse Source 
Per buildfarm.
This commit is contained in:
Tom Lane 2020-01-30 10:51:31 -05:00
parent e6f1e560e4
commit 2520cf8c2a
2 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/pl/plperl/expected/plperl_setup.out
View File

@ -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;

5
src/pl/plperl/sql/plperl_setup.sql
View File

@ -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;