From: Alvaro Herrera <alvherre@alvh.no-ip.org>
To: Pg Hackers <pgsql-hackers@lists.postgresql.org>
Subject: remove no longer necessary Perl compatibility hack
Date: Mon, 17 Oct 2022 10:16:49 +0200
Message-ID: <20221017081649.fjcd2kjqif77uyf2@alvherre.pgsql> (raw)
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")
Attachments:0001-Remove-no-longer-needed-compatibility-hack.patch (text/x-diff, 1.5K) download
From f85b0302b343e7867274e05ec982ce3c1432eb59 Mon Sep 17 00:00:00 2001
From: Alvaro Herrera <alvherre@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.pmindex 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
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Reply to all the recipients using the --to and --cc options:
reply via email
To: pgsql-hackers@postgresql.org
Cc: alvherre@alvh.no-ip.org, pgsql-hackers@lists.postgresql.org
Subject: Re: remove no longer necessary Perl compatibility hack
In-Reply-To: <20221017081649.fjcd2kjqif77uyf2@alvherre.pgsql>
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
This inbox is served by DDX for PostgreSQL; see mirroring instructions
for how to clone and mirror all data and code used for this inbox