From 485238ef0910133cb922e66b4dfa92d349d7c7ac Mon Sep 17 00:00:00 2001
From: Jonas Smedegaard <dr@jones.dk>
Date: Sat, 25 Sep 2010 22:15:54 +0200
Subject: Try fix lctransliterate().

---
 localkannel-dispatch | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'localkannel-dispatch')

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;
 }
-- 
cgit v1.2.3