database/postgres
1
0
Fork 0
mirror of https://github.com/postgres/postgres.git synced 2025-07-30 11:03:19 +03:00
Code 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
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
(1 row) (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 -- Should be able to change privileges on the language
revoke all on language plperl from public; revoke all on language plperl from public;
SET ROLE regress_user2; 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;'; CREATE FUNCTION foo1() returns int language plperl as '1;';
SELECT foo1(); 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 -- Should be able to change privileges on the language
revoke all on language plperl from public; revoke all on language plperl from public;