Remove redundant perl version checks
authorAndrew Dunstan <[email protected]>
Wed, 26 Jun 2024 11:01:47 +0000 (07:01 -0400)
committerAndrew Dunstan <[email protected]>
Wed, 26 Jun 2024 11:30:06 +0000 (07:30 -0400)
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

src/pl/plperl/plc_perlboot.pl
src/tools/pgindent/pgindent

index d506d01163b0a8b1cfad07be19b697d8b6eb0859..e8aab9b825145b10bfd78bce6c14e82dc045cf19 100644 (file)
@@ -1,6 +1,5 @@
 #  src/pl/plperl/plc_perlboot.pl
 
-use 5.008001;
 use vars qw(%_SHARED $_TD);
 
 PostgreSQL::InServer::Util::bootstrap();
index a51f3edf6632c204bc3da7f41fd33f96bcb3bd7c..4ea5ec8806f5e6ada476762c7a0bd21e2a1633fb 100755 (executable)
@@ -2,7 +2,6 @@
 
 use strict;
 use warnings;
-use 5.008001;
 
 use Cwd qw(abs_path getcwd);
 use File::Find;