Handle UTF-8 locales in addTrEntry

This commit is contained in:
Maxime Besson 2021-04-07 17:01:55 +02:00
parent 715b78c34f
commit db10446064

View File

@ -3,10 +3,12 @@
use strict;
use JSON;
use Getopt::Long;
use Encode::Locale qw/decode_argv/;
my ( $portal, $modify, $help, $delete, $reorder );
my $json =
JSON->new->utf8->pretty()->canonical()->space_before(0)->space_after(0);
decode_argv();
GetOptions(
"portal|p" => \$portal,
"modify|m" => \$modify,