lang/perl5.40/files/patch-cpan_JSON-PP_bin_json__pp


1
2
3
4
5
6
7
8
9
10
11

--- cpan/JSON-PP/bin/json_pp.orig	2025-05-15 13:39:16 UTC
+++ cpan/JSON-PP/bin/json_pp
@@ -2,7 +2,7 @@ use strict;
 
 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 ();