Fix (again!) handling of non-UTF8 characters

This commit is contained in:
Vincent Riquer 2013-11-27 17:26:15 +01:00
parent eba9bfffd6
commit 459d8c06ce

View File

@ -6,10 +6,10 @@ ascii() {
use utf8;
use Encode;
use Text::Unidecode;
use open qw(:std :utf8);
binmode STDIN, ":encoding(UTF-8)";
$| = 1;
while (<>) {
print(unidecode(encode("utf-8", $_)));
print(unidecode($_));
}'
}
}