From: Andrew Dunstan <andrew@dunslane.net>
Date: Wed, 26 Jun 2024 11:01:47 +0000 (-0400)
Subject: Remove redundant perl version checks
X-Git-Url: http://git.postgresql.org/gitweb/?a=commitdiff_plain;h=8851d5c3ad0487edec9b91d8267d1f1acf134e02;p=postgresql.git

Remove redundant perl version checks

Commit 4c1532763a removed some redundant uses of 'use 5.008001;' in perl
scripts, including in plperl's plc_perlboot.pl. Because it made other
changes it wasn't backpatched. However, now this is causing a failure on
back branches when built with bleeding edge perl. Therefore, backpatch
just that part of it which removed those uses, from 15 all the way down
to 9.2, which is the earliest version currently built in the buildfarm.

per report from Alexander Lakhin

Discussion: https://postgr.es/m/4cc2ee93-e03c-8e13-61ed-412e7e6ff19d@gmail.com
---

diff --git a/src/pl/plperl/plc_perlboot.pl b/src/pl/plperl/plc_perlboot.pl
index d506d01163b..e8aab9b8251 100644
--- a/src/pl/plperl/plc_perlboot.pl
+++ b/src/pl/plperl/plc_perlboot.pl
@@ -1,6 +1,5 @@
 #  src/pl/plperl/plc_perlboot.pl
 
-use 5.008001;
 use vars qw(%_SHARED $_TD);
 
 PostgreSQL::InServer::Util::bootstrap();
diff --git a/src/tools/pgindent/pgindent b/src/tools/pgindent/pgindent
index a51f3edf663..4ea5ec8806f 100755
--- a/src/tools/pgindent/pgindent
+++ b/src/tools/pgindent/pgindent
@@ -2,7 +2,6 @@
 
 use strict;
 use warnings;
-use 5.008001;
 
 use Cwd qw(abs_path getcwd);
 use File::Find;