This is an automated email from the ASF dual-hosted git repository.

reshke pushed a commit to branch address_1566_p2
in repository https://gitbox.apache.org/repos/asf/cloudberry.git

commit e50cee1c97a5329cf4a1fbbba84fd688f302396c
Author: Noah Misch <[email protected]>
AuthorDate: Sat Jun 25 14:15:56 2022 -0700

    Fix PostgreSQL::Test aliasing for Perl v5.10.1.
    
    This Perl segfaults if a declaration of the to-be-aliased package
    precedes the aliasing itself.  Per buildfarm members lapwing and wrasse.
    Like commit 20911775de4ab7ac3ecc68bd714cb3ed0fd68b6a, back-patch to v10
    (all supported versions).
    
    Discussion: https://postgr.es/m/[email protected]
---
 src/test/perl/PostgreSQL/Test/Cluster.pm | 7 +------
 src/test/perl/PostgreSQL/Test/Utils.pm   | 7 +------
 2 files changed, 2 insertions(+), 12 deletions(-)

diff --git a/src/test/perl/PostgreSQL/Test/Cluster.pm 
b/src/test/perl/PostgreSQL/Test/Cluster.pm
index 14b8ee73776..14e9138a394 100644
--- a/src/test/perl/PostgreSQL/Test/Cluster.pm
+++ b/src/test/perl/PostgreSQL/Test/Cluster.pm
@@ -5,14 +5,9 @@
 # package the same symbol table as the older package.  See PostgresNode::new
 # for supporting heuristics.
 
-package PostgreSQL::Test::Cluster;
-
 use strict;
 use warnings;
-
-use PostgresNode;
 BEGIN { *PostgreSQL::Test::Cluster:: = \*PostgresNode::; }
-
-use Exporter 'import';
+use PostgresNode ();
 
 1;
diff --git a/src/test/perl/PostgreSQL/Test/Utils.pm 
b/src/test/perl/PostgreSQL/Test/Utils.pm
index e743bdfc834..2d15bbf21d7 100644
--- a/src/test/perl/PostgreSQL/Test/Utils.pm
+++ b/src/test/perl/PostgreSQL/Test/Utils.pm
@@ -3,14 +3,9 @@
 # Allow use of release 15+ Perl package name in older branches, by giving that
 # package the same symbol table as the older package.
 
-package PostgreSQL::Test::Utils;
-
 use strict;
 use warnings;
-
-use TestLib;
 BEGIN { *PostgreSQL::Test::Utils:: = \*TestLib::; }
-
-use Exporter 'import';
+use TestLib ();
 
 1;


---------------------------------------------------------------------
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]

Reply via email to