Revision 00a6bdd7
Von Sven Schöling vor etwa 3 Jahren hinzugefügt
| scripts/console | ||
|---|---|---|
| 2 | 2 |
|
| 3 | 3 |
use warnings; |
| 4 | 4 |
use strict; |
| 5 |
use utf8; |
|
| 6 |
use open qw(:std :utf8); |
|
| 5 | 7 |
use 5.008; # too much magic in here to include perl 5.6 |
| 6 | 8 |
|
| 7 | 9 |
BEGIN {
|
| ... | ... | |
| 64 | 66 |
my $repl = Devel::REPL->new; |
| 65 | 67 |
$repl->load_plugin($_) for @plugins; |
| 66 | 68 |
$repl->load_history($history_file); |
| 69 |
|
|
| 70 |
binmode($repl->out_fh, 'utf8'); |
|
| 71 |
|
|
| 72 |
$repl->eval('use utf8;');
|
|
| 67 | 73 |
$repl->eval('help');
|
| 68 | 74 |
$repl->print("trying to auto login into client '$client' with login '$login'...\n");
|
| 69 | 75 |
execute_code($repl, "lxinit '$client', '$login'"); |
Auch abrufbar als: Unified diff
scripts/console: utf8 Kompatibilität und Doku zu Term::ReadLine::Gnu