1 2 3 4 5 6 7 8 9 10 11 12 13
Silence Getopt::Long warning --- bin/json_pp.orig 2025-08-20 12:20:56 UTC +++ 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 ();