X-Git-Url: http://wagnertech.de/git?p=kivitendo-erp.git;a=blobdiff_plain;f=scripts%2Fconsole;fp=scripts%2Fconsole;h=bf4ffaa6c8fb05b16c2e47b77e6cbdb07c51377a;hp=8bbe93d6969902eae1fef4dbe3de9a1a3336912f;hb=b293ff8ad52fc76ba0c44783e3982418114d6b08;hpb=d4925a8b60f04674885e30d9316dc0263f8b9a84 diff --git a/scripts/console b/scripts/console index 8bbe93d69..bf4ffaa6c 100755 --- a/scripts/console +++ b/scripts/console @@ -2,6 +2,8 @@ use warnings; use strict; +use utf8; +use open qw(:std :utf8); use 5.008; # too much magic in here to include perl 5.6 BEGIN { @@ -64,6 +66,10 @@ sub execute_code { my $repl = Devel::REPL->new; $repl->load_plugin($_) for @plugins; $repl->load_history($history_file); + +binmode($repl->out_fh, 'utf8'); + +$repl->eval('use utf8;'); $repl->eval('help'); $repl->print("trying to auto login into client '$client' with login '$login'...\n"); execute_code($repl, "lxinit '$client', '$login'");