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 /localmarkdown2sms | |
parent | 0d252999c71b69b756acf5346536dab44f461066 (diff) |
Fix avoid decoding UTF-8; capture output of transliteration; fallback to empty string (not null).
Diffstat (limited to 'localmarkdown2sms')
-rwxr-xr-x | localmarkdown2sms | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/localmarkdown2sms b/localmarkdown2sms index d86cd1c..7d03df2 100755 --- a/localmarkdown2sms +++ b/localmarkdown2sms @@ -108,7 +108,7 @@ foreach my $file (read_dir( $path )) { next unless ($file =~ /\.mdwn$/); foreach my $line (read_file( File::Spec->catfile($path, $file))) { chomp $line; - &transliterate($line); + $line = &transliterate($line); my $content; # headline if ($line =~ /^(#+)\s*(.*?)\s*$/) { @@ -207,13 +207,13 @@ sub tidymsg { sub transliterate { my $string = shift @_; - my $res = encode('UTF-8', decode('GSM0338', encode('GSM0338', decode('UTF-8', $string), sub { + my $res = encode('UTF-8', decode('GSM0338', encode('GSM0338', $string, sub { my $ascii = unidecode(chr $_[0]); _utf8_off($ascii); $ascii; }))); - return $res; + return $res || ""; } sub sendmsg { |