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 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 { |