diff options
author | Jonas Smedegaard <dr@jones.dk> | 2010-09-25 22:15:54 +0200 |
---|---|---|
committer | Jonas Smedegaard <dr@jones.dk> | 2010-09-25 22:15:54 +0200 |
commit | 485238ef0910133cb922e66b4dfa92d349d7c7ac (patch) | |
tree | 75a449d09da56f7d72a29902dd493535c2464af8 /localkannel-dispatch | |
parent | 9ebdc09f782b8adda92ff85a28a6fe372388daef (diff) |
Try fix lctransliterate().
Diffstat (limited to 'localkannel-dispatch')
-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; } |