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 utf8;
use Encode; use Encode;
use Text::Unidecode; use Text::Unidecode;
use open qw(:std :utf8); binmode STDIN, ":encoding(UTF-8)";
$| = 1; $| = 1;
while (<>) { while (<>) {
print(unidecode(encode("utf-8", $_))); print(unidecode($_));
}' }'
} }
} }