diff options
Diffstat (limited to 'localmarkdown2sms')
-rwxr-xr-x | localmarkdown2sms | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/localmarkdown2sms b/localmarkdown2sms index 87055ad..4092e53 100755 --- a/localmarkdown2sms +++ b/localmarkdown2sms @@ -29,7 +29,7 @@ use File::Spec; use File::Slurp; use Time::Duration::Parse; use Text::Unidecode; -use Encode 2.12 qw(encode decode_utf8 _utf8_off); # need v2.12 to support coderef +use Encode 2.12 qw(encode decode _utf8_off); # need v2.12 to support coderef use LWP::UserAgent; use URI::Escape; use Proc::Daemon; @@ -204,11 +204,11 @@ sub tidymsg { sub transliterate { my ($tocharset, $string) = @_; - my $res = encode($tocharset, decode_utf8($string), sub { + my $res = encode($tocharset, decode('GSM0338', encode('GSM0338', decode('UTF-8', $string), sub { my $ascii = unidecode(chr $_[0]); _utf8_off($ascii); $ascii; - }); + }))); return $res; } |