Fix test failure with non-MULTIPLICITY Perl interpreters.

Per buildfarm.

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