From 2520cf8c2a0a1d679094dffbd99871884e620ed5 Mon Sep 17 00:00:00 2001 From: Tom Lane Date: Thu, 30 Jan 2020 10:51:31 -0500 Subject: [PATCH] Fix test failure with non-MULTIPLICITY Perl interpreters. Per buildfarm. --- src/pl/plperl/expected/plperl_setup.out | 3 +++ src/pl/plperl/sql/plperl_setup.sql | 5 +++++ 2 files changed, 8 insertions(+) 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; -- 2.39.5