database/postgres
database/postgres
1
0
Fork 0
mirror of https://github.com/postgres/postgres.git synced 2025-04-25 21:42:33 +03:00
Code

Remove use of perl parent module in Cluster.pm

Browse Source 
Commit fb16d2c658 used the old but not quite old enough parent module,
which dates to perl version 5.10.1 as a core module. We still have a
dinosaur or two running older versions of perl, so rather than require
an upgrade in those we simply do in place what parent.pm's import()
would have done for us.

Reviewed by Tom Lane

Discussion: https://postgr.es/m/474104.1648685981@sss.pgh.pa.us
This commit is contained in:
Andrew Dunstan 2022-03-31 14:10:47 -04:00
parent fea1cc49e4
commit d5f43a1a10
No known key found for this signature in database
GPG Key ID: 99FA7FCB59FC3B81
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/test/perl/PostgreSQL/Test/Cluster.pm
View File

@ -2918,7 +2918,10 @@ sub corrupt_page_checksum
package PostgreSQL::Test::Cluster::V_11; ## no critic (ProhibitMultiplePackages)
use parent -norequire, qw(PostgreSQL::Test::Cluster);
# parent.pm is not present in all perl versions before 5.10.1, so instead
# do directly what it would do for this:
# use parent -norequire, qw(PostgreSQL::Test::Cluster);
push @PostgreSQL::Test::Cluster::V_11::ISA, 'PostgreSQL::Test::Cluster';
# https://www.postgresql.org/docs/11/release-11.html
@ -2945,7 +2948,8 @@ sub init
package PostgreSQL::Test::Cluster::V_10; ## no critic (ProhibitMultiplePackages)
use parent -norequire, qw(PostgreSQL::Test::Cluster::V_11);
# use parent -norequire, qw(PostgreSQL::Test::Cluster::V_11);
push @PostgreSQL::Test::Cluster::V_10::ISA, 'PostgreSQL::Test::Cluster::V_11';
# https://www.postgresql.org/docs/10/release-10.html