mirror of
https://git.postgresql.org/git/postgresql.git
synced 2024-08-25 07:07:18 +02:00
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 20911775de
, back-patch to v10
(all supported versions).
Discussion: https://postgr.es/m/20220625171533.GA2012493@rfd.leadboat.com
This commit is contained in:
parent
8782ce49e4
commit
aa1845cdd6
@ -5,14 +5,9 @@
|
|||||||
# package the same symbol table as the older package. See PostgresNode::new
|
# package the same symbol table as the older package. See PostgresNode::new
|
||||||
# for supporting heuristics.
|
# for supporting heuristics.
|
||||||
|
|
||||||
package PostgreSQL::Test::Cluster;
|
|
||||||
|
|
||||||
use strict;
|
use strict;
|
||||||
use warnings;
|
use warnings;
|
||||||
|
|
||||||
use PostgresNode;
|
|
||||||
BEGIN { *PostgreSQL::Test::Cluster:: = \*PostgresNode::; }
|
BEGIN { *PostgreSQL::Test::Cluster:: = \*PostgresNode::; }
|
||||||
|
use PostgresNode ();
|
||||||
use Exporter 'import';
|
|
||||||
|
|
||||||
1;
|
1;
|
||||||
|
@ -3,14 +3,9 @@
|
|||||||
# Allow use of release 15+ Perl package name in older branches, by giving that
|
# Allow use of release 15+ Perl package name in older branches, by giving that
|
||||||
# package the same symbol table as the older package.
|
# package the same symbol table as the older package.
|
||||||
|
|
||||||
package PostgreSQL::Test::Utils;
|
|
||||||
|
|
||||||
use strict;
|
use strict;
|
||||||
use warnings;
|
use warnings;
|
||||||
|
|
||||||
use TestLib;
|
|
||||||
BEGIN { *PostgreSQL::Test::Utils:: = \*TestLib::; }
|
BEGIN { *PostgreSQL::Test::Utils:: = \*TestLib::; }
|
||||||
|
use TestLib ();
|
||||||
use Exporter 'import';
|
|
||||||
|
|
||||||
1;
|
1;
|
||||||
|
Loading…
Reference in New Issue
Block a user