From 0d252999c71b69b756acf5346536dab44f461066 Mon Sep 17 00:00:00 2001 From: Jonas Smedegaard Date: Sun, 26 Sep 2010 00:16:55 +0200 Subject: Fix transliterate each line (read_file() directly). --- localmarkdown2sms | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/localmarkdown2sms b/localmarkdown2sms index 8346a0b..d86cd1c 100755 --- a/localmarkdown2sms +++ b/localmarkdown2sms @@ -106,8 +106,9 @@ foreach my $file (read_dir( $path )) { # suppress repeated warnings for same issue my ($warn_nonkey_delay, $warn_nonkey_content); next unless ($file =~ /\.mdwn$/); - foreach my $line (transliterate(read_file( File::Spec->catfile($path, $file)))) { + foreach my $line (read_file( File::Spec->catfile($path, $file))) { chomp $line; + &transliterate($line); my $content; # headline if ($line =~ /^(#+)\s*(.*?)\s*$/) { -- cgit v1.2.3