blob: c0c275a291b79b9e67bcb4e2199321592e5c6e89 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
# Copyright (c) 2022, PostgreSQL Global Development Group
# Allow use of release 15+ Perl package name in older branches, by giving that
# package the same symbol table as the older package. See PostgresNode::new
# for supporting heuristics.
use strict;
use warnings;
BEGIN { *PostgreSQL::Test::Cluster:: = \*PostgresNode::; }
use PostgresNode ();
# There's no runtime requirement for the following package declaration, but it
# convinces the RPM Package Manager that this file provides the Perl package
# in question. Perl v5.10.1 segfaults if a declaration of the to-be-aliased
# package precedes the aliasing itself, hence the abnormal placement.
package PostgreSQL::Test::Cluster;
1;
|
