diff options
| author | Noah Misch <noah@leadboat.com> | 2022-06-25 14:15:56 -0700 |
|---|---|---|
| committer | Noah Misch <noah@leadboat.com> | 2022-06-25 14:16:00 -0700 |
| commit | fe25c8533c1775c49773a32d8bf189829a36e56e (patch) | |
| tree | a76dfdc5c259f4b3db488b79d485d2de3ab7df7f /src/test/perl/PostgreSQL/Test/Cluster.pm | |
| parent | 93731d549e15deb98cfab49f3d879beb1986daca (diff) | |
| download | postgresql-fe25c8533c1775c49773a32d8bf189829a36e56e.tar.gz postgresql-fe25c8533c1775c49773a32d8bf189829a36e56e.zip | |
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/20220625171533.GA2012493@rfd.leadboat.com
Diffstat (limited to 'src/test/perl/PostgreSQL/Test/Cluster.pm')
| -rw-r--r-- | src/test/perl/PostgreSQL/Test/Cluster.pm | 7 |
1 files changed, 1 insertions, 6 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; |