git.postgresql.org Git - postgresql.git/commitdiff

diff --git a/src/pl/plperl/expected/plperl_setup.out b/src/pl/plperl/expected/plperl_setup.out

index faeb645c5f88c6b11976981d6473e212b3b6e3a6..a1a24dfb41cd3379fa77b69fd99b379c942af09e 100644 (file)

--- a/src/pl/plperl/expected/plperl_setup.out

+++ b/src/pl/plperl/expected/plperl_setup.out

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 ae48feae863fef2aec91df32e15c4e9d41d1946e..74844782f87d765e610f9adee84c5987212806e9 100644 (file)

--- a/src/pl/plperl/sql/plperl_setup.sql

+++ b/src/pl/plperl/sql/plperl_setup.sql

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;