HEX
Server: Apache/2.4.52 (Ubuntu)
System: Linux spn-python 5.15.0-89-generic #99-Ubuntu SMP Mon Oct 30 20:42:41 UTC 2023 x86_64
User: arjun (1000)
PHP: 8.1.2-1ubuntu2.20
Disabled: NONE
Upload Files
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;