database/postgres
database/postgres
1
0
Fork 0
mirror of https://github.com/postgres/postgres.git synced 2025-05-18 17:41:14 +03:00
Code

Fix PostgreSQL::Test aliasing for Perl v5.10.1.

Browse Source 
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
This commit is contained in:
Noah Misch 2022-06-25 14:15:56 -07:00
parent 8782ce49e4
commit aa1845cdd6
2 changed files with 2 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/test/perl/PostgreSQL/Test/Cluster.pm
View File

@ -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;

7
src/test/perl/PostgreSQL/Test/Utils.pm
View File

@ -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;