From 16973123416a236740cdc55ef2f490c747c2dd68 Mon Sep 17 00:00:00 2001 From: Dominik Hassler Date: Thu, 19 Dec 2024 22:49:00 +0000 Subject: [PATCH] perl: Getopt::Long got picky about ignoring case from version 2.55 on --- build/perl/patches/getopt.patch | 25 +++++++++++++++++++++++++ build/perl/patches/series | 1 + 2 files changed, 26 insertions(+) create mode 100644 build/perl/patches/getopt.patch diff --git a/build/perl/patches/getopt.patch b/build/perl/patches/getopt.patch new file mode 100644 index 0000000000..9942d6a402 --- /dev/null +++ b/build/perl/patches/getopt.patch @@ -0,0 +1,25 @@ +From 7052740e158491666e4f27d75241617a16170102 Mon Sep 17 00:00:00 2001 +From: Heiko Jansen +Date: Wed, 20 Nov 2024 09:51:00 +0100 +Subject: [PATCH] Silence Getopt::Long warning + +Getopt::Long >= 2.55 produces the warning +'Duplicate specification "V" for option "v" +See issue #88 for prior report. +--- + bin/json_pp | 2 +- + 1 file changed, 1 insertion(+), 1 deletion(-) + +diff --git a/cpan/JSON-PP/bin/json_pp b/cpan/JSON-PP/bin/json_pp +index 72b9db7..85dd348 100644 +--- a/cpan/JSON-PP/bin/json_pp ++++ b/cpan/JSON-PP/bin/json_pp +@@ -2,7 +2,7 @@ + + BEGIN { pop @INC if $INC[-1] eq '.' } + use strict; +-use Getopt::Long; ++use Getopt::Long qw( :config no_ignore_case ); + use Encode (); + + use JSON::PP (); diff --git a/build/perl/patches/series b/build/perl/patches/series index 14cd9c5a03..98fa694ab8 100644 --- a/build/perl/patches/series +++ b/build/perl/patches/series @@ -1,2 +1,3 @@ t_op_getppid.t.patch dtrace.patch +getopt.patch