diff options
| author | Noah Misch <noah@leadboat.com> | 2022-06-25 09:07:44 -0700 |
|---|---|---|
| committer | Noah Misch <noah@leadboat.com> | 2022-06-25 09:07:45 -0700 |
| commit | ec26f44d539a70cdca068392fc08b1137fd72fe8 (patch) | |
| tree | 59f222ab94c7005a4b04921dd58bb0e520123c0a /src/test/perl/PostgreSQL/Test/Cluster.pm | |
| parent | 9e0d9a24ef88fa6bbca8d28cc7af9e3cde7b4886 (diff) | |
| download | postgresql-ec26f44d539a70cdca068392fc08b1137fd72fe8.tar.gz postgresql-ec26f44d539a70cdca068392fc08b1137fd72fe8.zip | |
For PostgreSQL::Test compatibility, alias entire package symbol tables.
Remove the need to edit back-branch-specific code sites when
back-patching the addition of a PostgreSQL::Test::Utils symbol. Replace
per-symbol, incomplete alias lists. Give old and new package names the
same EXPORT and EXPORT_OK semantics. Back-patch to v10 (all supported
versions).
Reviewed by Andrew Dunstan.
Discussion: https://postgr.es/m/20220622072144.GD4167527@rfd.leadboat.com
Diffstat (limited to 'src/test/perl/PostgreSQL/Test/Cluster.pm')
| -rw-r--r-- | src/test/perl/PostgreSQL/Test/Cluster.pm | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/src/test/perl/PostgreSQL/Test/Cluster.pm b/src/test/perl/PostgreSQL/Test/Cluster.pm index 12339c23de1..14b8ee73776 100644 --- a/src/test/perl/PostgreSQL/Test/Cluster.pm +++ b/src/test/perl/PostgreSQL/Test/Cluster.pm @@ -1,9 +1,9 @@ # Copyright (c) 2022, PostgreSQL Global Development Group -# allow use of release 15+ perl namespace in older branches -# just 'use' the older module name. -# See PostgresNode.pm for function implementations +# 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. package PostgreSQL::Test::Cluster; @@ -11,5 +11,8 @@ use strict; use warnings; use PostgresNode; +BEGIN { *PostgreSQL::Test::Cluster:: = \*PostgresNode::; } + +use Exporter 'import'; 1; |