Current File : //lib/postgresql/14/lib/pgxs/src/test/perl/PostgreSQL/Test/Cluster.pm
# 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;
Mini Shell