diff options
author | Jonas Smedegaard <dr@jones.dk> | 2010-09-26 00:16:55 +0200 |
---|---|---|
committer | Jonas Smedegaard <dr@jones.dk> | 2010-09-26 00:16:55 +0200 |
commit | 0d252999c71b69b756acf5346536dab44f461066 (patch) | |
tree | ff704ebb23dbf962b99c67e7260a38328b7a38f7 /localmarkdown2sms | |
parent | c6f9aaedc145f8bea420d2ebc4da8c894caebb25 (diff) |
Fix transliterate each line (read_file() directly).
Diffstat (limited to 'localmarkdown2sms')
-rwxr-xr-x | localmarkdown2sms | 3 |
1 files changed, 2 insertions, 1 deletions
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*$/) { |