Handle UTF-8 locales in addTrEntry
This commit is contained in:
parent
715b78c34f
commit
db10446064
|
@ -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,
|
||||
|
|
Loading…
Reference in New Issue
Block a user