Avoid unnecessary recoding from/to UTF-8 (which also unsets UTF8 flag?).

1 files changed, 2 insertions, 2 deletions

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;
 }