Changeset 2391

Timestamp:

06/08/20 23:07:17 (4 years ago)

Author:

nanardon

Message:

Fix utf8 input in la-cli

File:

• trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Cli/Context.pm (modified) (2 diffs)

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Cli/Context.pm

@@ -11 +11 @@
 use Text::ParseWords;
 use Getopt::Long;
+use utf8;
+use open qw( :std :utf8 );
 
 =head1 NAME
@@ -51 +53 @@
     my $class = shift;
 
-    my $term = Term::ReadLine->new('LA CLI');
+    my $term = Term::ReadLine->new('LA CLI', \*STDIN, \*STDOUT );
+    binmode($term->IN, ':utf8');
     $term->MinLine(99999);
     my $OUT = \*STDOUT;