From: Tom Lane <tgl@sss.pgh.pa.us>
Date: Thu, 30 Jan 2020 15:51:31 +0000 (-0500)
Subject: Fix test failure with non-MULTIPLICITY Perl interpreters.
X-Git-Tag: REL_13_BETA1~794
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=2520cf8c2a0a1d679094dffbd99871884e620ed5;p=thirdparty%2Fpostgresql.git

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