Fix test failure with non-MULTIPLICITY Perl interpreters.

tglsfdc · tglsfdc · commit 2520cf8c2a0a · 2020-01-30T10:51:40.000-05:00
Per buildfarm.
diff --git 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
@@ -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;
 

Original file line number	Diff line number	Diff line change
`@@ -32,6 +32,9 @@ SELECT foo1();`
`32`	`32`	`1`
`33`	`33`	`(1 row)`
`34`	`34`
	`35`	`+-- Must reconnect to avoid failure with non-MULTIPLICITY Perl interpreters`
	`36`	`+\c -`
	`37`	`+SET ROLE regress_user1;`
`35`	`38`	`-- Should be able to change privileges on the language`
`36`	`39`	`revoke all on language plperl from public;`
`37`	`40`	`SET ROLE regress_user2;`