summaryrefslogtreecommitdiffstats
path: root/src/test/perl/PostgreSQL
diff options
context:
space:
mode:
Diffstat (limited to 'src/test/perl/PostgreSQL')
-rw-r--r--src/test/perl/PostgreSQL/Test/Cluster.pm13
-rw-r--r--src/test/perl/PostgreSQL/Test/Utils.pm11
2 files changed, 24 insertions, 0 deletions
diff --git a/src/test/perl/PostgreSQL/Test/Cluster.pm b/src/test/perl/PostgreSQL/Test/Cluster.pm
new file mode 100644
index 0000000..14e9138
--- /dev/null
+++ b/src/test/perl/PostgreSQL/Test/Cluster.pm
@@ -0,0 +1,13 @@
+
+# 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 ();
+
+1;
diff --git a/src/test/perl/PostgreSQL/Test/Utils.pm b/src/test/perl/PostgreSQL/Test/Utils.pm
new file mode 100644
index 0000000..2d15bbf
--- /dev/null
+++ b/src/test/perl/PostgreSQL/Test/Utils.pm
@@ -0,0 +1,11 @@
+# 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.
+
+use strict;
+use warnings;
+BEGIN { *PostgreSQL::Test::Utils:: = \*TestLib::; }
+use TestLib ();
+
+1;