diff options
author | Jonas Smedegaard <dr@jones.dk> | 2010-09-25 21:22:56 +0200 |
---|---|---|
committer | Jonas Smedegaard <dr@jones.dk> | 2010-09-25 21:22:56 +0200 |
commit | cdf6551662519c66a6d7120c8597da688a43531a (patch) | |
tree | 7ef86650e9d5b39914ae6eb410d600cc4a664704 | |
parent | 71c63873d51e566f8de5480ba930707b51bb8575 (diff) |
Fix lctransliterate().
-rwxr-xr-x | localkannel-dispatch | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/localkannel-dispatch b/localkannel-dispatch index 62321c2..1cb937f 100755 --- a/localkannel-dispatch +++ b/localkannel-dispatch @@ -23,8 +23,8 @@ lctransliterate() { echo "$1" | perl -C1 -n \ -e 'use Text::Unidecode;' \ -e 'use Encode 2.12 qw(encode decode _utf8_off);' \ - -e 'print lc(decode("GSM0338", encode("GSM0338", $_,' - -e 'sub {$a=unidecode(chr $_[0]); _utf8_off($a); $a;}' + -e 'print lc(decode("GSM0338", encode("GSM0338", $_,' \ + -e 'sub {$a=unidecode(chr $_[0]); _utf8_off($a); $a;}' \ -e ')));' return $res; |