mirror of
https://git.postgresql.org/git/postgresql.git
synced 2024-11-27 07:21:09 +08:00
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
This commit is contained in:
parent
3911fd55f5
commit
12c8faaa7b
@ -1,6 +1,5 @@
|
|||||||
# src/pl/plperl/plc_perlboot.pl
|
# src/pl/plperl/plc_perlboot.pl
|
||||||
|
|
||||||
use 5.008001;
|
|
||||||
use vars qw(%_SHARED $_TD);
|
use vars qw(%_SHARED $_TD);
|
||||||
|
|
||||||
PostgreSQL::InServer::Util::bootstrap();
|
PostgreSQL::InServer::Util::bootstrap();
|
||||||
|
@ -2,7 +2,6 @@
|
|||||||
|
|
||||||
use strict;
|
use strict;
|
||||||
use warnings;
|
use warnings;
|
||||||
use 5.008001;
|
|
||||||
|
|
||||||
use Cwd qw(abs_path getcwd);
|
use Cwd qw(abs_path getcwd);
|
||||||
use File::Find;
|
use File::Find;
|
||||||
|
Loading…
Reference in New Issue
Block a user