Merge pull request #3778 from hadfl/perl

perl: Getopt::Long got picky about ignoring case from version 2.55 on
omniosorg · Dec 20, 2024 · 6c39a6b · 6c39a6b
2 parents a138d84 + 03c00b6
commit 6c39a6b
Show file tree

Hide file tree

Showing 2 changed files with 26 additions and 0 deletions.
diff --git a/build/perl/patches/getopt.patch b/build/perl/patches/getopt.patch
@@ -0,0 +1,25 @@
+From 7052740e158491666e4f27d75241617a16170102 Mon Sep 17 00:00:00 2001
+From: Heiko Jansen <[email protected]>
+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
@@ -1,2 +1,3 @@
 t_op_getppid.t.patch
 dtrace.patch
+getopt.patch