diff options
-rwxr-xr-x | localkannel-dispatch | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/localkannel-dispatch b/localkannel-dispatch index f3564d1..0a04b73 100755 --- a/localkannel-dispatch +++ b/localkannel-dispatch @@ -24,12 +24,12 @@ grepescape() { # Based on Text::Unidecode bug#8017: http://rt.cpan.org/Ticket/Display.html?id=8017#txn-322351 lctransliterate() { - echo "$1" | perl -C1 -n \ + echo "$1" | perl -n \ -e 'use Text::Unidecode;' \ -e 'use Encode 2.12 qw(encode decode _utf8_off);' \ - -e 'print lc(decode("GSM0338", encode("GSM0338", $_,' \ + -e 'print lc(encode("UTF-8", decode("GSM0338", encode("GSM0338", decode("UTF-8, $_),' \ -e 'sub {$a=unidecode(chr $_[0]); _utf8_off($a); $a;}' \ - -e ')));' + -e '))));' return $res; } |