/
usr
/
lib
/
postgresql
/
14
/
lib
/
pgxs
/
src
/
test
/
perl
/
PostgreSQL
/
Test
/
/usr/lib/postgresql/14/lib/pgxs/src/test/perl/PostgreSQL/Test
mkdir
upload
Name
Size
Mode
Actions
BackgroundPsql.pm
9072
0644
edit
dl
rm
Cluster.pm
695
0644
edit
dl
rm
Utils.pm
628
0644
edit
dl
rm
Edit:
/usr/lib/postgresql/14/lib/pgxs/src/test/perl/PostgreSQL/Test/Cluster.pm
(695B)
# 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;
Save
cmd:
run