From 232c798f15141f88fbc1c9e92eb18cbd643fa283 Mon Sep 17 00:00:00 2001 From: Jonas Smedegaard Date: Thu, 23 Sep 2010 18:49:35 +0200 Subject: Avoid unnecessary recoding from/to UTF-8 (which also unsets UTF8 flag?). --- localmarkdown2sms | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'localmarkdown2sms') diff --git a/localmarkdown2sms b/localmarkdown2sms index 0340084..8ad0f18 100755 --- a/localmarkdown2sms +++ b/localmarkdown2sms @@ -204,11 +204,11 @@ sub tidymsg { sub transliterate { my $string = shift @_; - my $res = encode('UTF-8', decode('GSM0338', encode('GSM0338', decode('UTF-8', $string), sub { + my $res = decode('GSM0338', encode('GSM0338', $string, sub { my $ascii = unidecode(chr $_[0]); _utf8_off($ascii); $ascii; - }))); + })); return $res; } -- cgit v1.2.3