Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
Skip to content

Commit aa1845c

Browse files
committed
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 2091177, back-patch to v10 (all supported versions). Discussion: https://postgr.es/m/20220625171533.GA2012493@rfd.leadboat.com
1 parent 8782ce4 commit aa1845c

File tree

2 files changed

+2
-12
lines changed

2 files changed

+2
-12
lines changed

src/test/perl/PostgreSQL/Test/Cluster.pm

Lines changed: 1 addition & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -5,14 +5,9 @@
55
# package the same symbol table as the older package. See PostgresNode::new
66
# for supporting heuristics.
77

8-
package PostgreSQL::Test::Cluster;
9-
108
use strict;
119
use warnings;
12-
13-
use PostgresNode;
1410
BEGIN { *PostgreSQL::Test::Cluster:: = \*PostgresNode::; }
15-
16-
use Exporter 'import';
11+
use PostgresNode ();
1712

1813
1;

src/test/perl/PostgreSQL/Test/Utils.pm

Lines changed: 1 addition & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -3,14 +3,9 @@
33
# Allow use of release 15+ Perl package name in older branches, by giving that
44
# package the same symbol table as the older package.
55

6-
package PostgreSQL::Test::Utils;
7-
86
use strict;
97
use warnings;
10-
11-
use TestLib;
128
BEGIN { *PostgreSQL::Test::Utils:: = \*TestLib::; }
13-
14-
use Exporter 'import';
9+
use TestLib ();
1510

1611
1;

0 commit comments

Comments
 (0)