diff options
author | Jonas Smedegaard <dr@jones.dk> | 2010-09-26 18:59:53 +0200 |
---|---|---|
committer | Jonas Smedegaard <dr@jones.dk> | 2010-09-26 18:59:53 +0200 |
commit | 8f6bf384c28276b6f05f9679e9a4e690bdc79803 (patch) | |
tree | dc90b2154befc35c65421ff06bab32872e5ebbd4 /localkannel-dispatch | |
parent | 6ff2caadc23016b1ad8b2a669916fed6a5329e36 (diff) |
Fix UTF-8 IO handling.
Diffstat (limited to 'localkannel-dispatch')
-rwxr-xr-x | localkannel-dispatch | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/localkannel-dispatch b/localkannel-dispatch index 5f96b36..dc003d8 100755 --- a/localkannel-dispatch +++ b/localkannel-dispatch @@ -27,9 +27,9 @@ lctransliterate() { echo "$1" | perl -n \ -e 'use Text::Unidecode;' \ -e 'use Encode 2.12 qw(encode decode _utf8_off);' \ - -e 'print lc(encode("UTF-8", decode("GSM0338", encode("GSM0338", $_,' \ + -e 'print lc(decode("GSM0338", encode("GSM0338", decode("UTF-8", $_),' \ -e 'sub {$a=unidecode(chr $_[0]); _utf8_off($a); $a;}' \ - -e '))));' + -e ')));' return $res; } |