diff options
author | Jonas Smedegaard <dr@jones.dk> | 2010-09-26 02:03:35 +0200 |
---|---|---|
committer | Jonas Smedegaard <dr@jones.dk> | 2010-09-26 02:03:35 +0200 |
commit | 6ff2caadc23016b1ad8b2a669916fed6a5329e36 (patch) | |
tree | 06b797b42d0126d80a53a3e96d9e72980d81b7a2 /localkannel-dispatch | |
parent | 0d252999c71b69b756acf5346536dab44f461066 (diff) |
Fix avoid decoding UTF-8; capture output of transliteration; fallback to empty string (not null).
Diffstat (limited to 'localkannel-dispatch')
-rwxr-xr-x | localkannel-dispatch | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/localkannel-dispatch b/localkannel-dispatch index a142762..5f96b36 100755 --- a/localkannel-dispatch +++ b/localkannel-dispatch @@ -27,7 +27,7 @@ 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", decode("UTF-8", $_),' \ + -e 'print lc(encode("UTF-8", decode("GSM0338", encode("GSM0338", $_,' \ -e 'sub {$a=unidecode(chr $_[0]); _utf8_off($a); $a;}' \ -e '))));' |