Hello While messing about with Cluster.pm I noticed that we don't need the hack to work around lack of parent.pm in very old Perl versions, because we no longer support those versions (per commit 4c1532763a00). Trivial patch attached.
-- Álvaro Herrera Breisgau, Deutschland — https://www.EnterpriseDB.com/ "El que vive para el futuro es un iluso, y el que vive para el pasado, un imbécil" (Luis Adler, "Los tripulantes de la noche")
>From f85b0302b343e7867274e05ec982ce3c1432eb59 Mon Sep 17 00:00:00 2001 From: Alvaro Herrera <alvhe...@alvh.no-ip.org> Date: Mon, 17 Oct 2022 10:11:05 +0200 Subject: [PATCH] Remove no-longer-needed compatibility hack Our Perl version requirement was raised to 5.14 by commit 4c1532763a00 --- src/test/perl/PostgreSQL/Test/Cluster.pm | 8 ++------ 1 file changed, 2 insertions(+), 6 deletions(-) diff --git a/src/test/perl/PostgreSQL/Test/Cluster.pm b/src/test/perl/PostgreSQL/Test/Cluster.pm index 4a64cb749b..2a8131df4a 100644 --- a/src/test/perl/PostgreSQL/Test/Cluster.pm +++ b/src/test/perl/PostgreSQL/Test/Cluster.pm @@ -2940,10 +2940,7 @@ $SIG{TERM} = $SIG{INT} = sub package PostgreSQL::Test::Cluster::V_11 ; ## no critic (ProhibitMultiplePackages) -# 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'; +use parent -norequire, qw(PostgreSQL::Test::Cluster); # https://www.postgresql.org/docs/11/release-11.html @@ -2971,8 +2968,7 @@ sub init package PostgreSQL::Test::Cluster::V_10 ; ## no critic (ProhibitMultiplePackages) -# use parent -norequire, qw(PostgreSQL::Test::Cluster::V_11); -push @PostgreSQL::Test::Cluster::V_10::ISA, 'PostgreSQL::Test::Cluster::V_11'; +use parent -norequire, qw(PostgreSQL::Test::Cluster::V_11); # https://www.postgresql.org/docs/10/release-10.html -- 2.30.2