diff options
| author | Jonas Smedegaard <dr@jones.dk> | 2008-05-31 12:58:40 +0200 |
|---|---|---|
| committer | Jonas Smedegaard <dr@jones.dk> | 2008-05-31 14:59:36 +0200 |
| commit | 805fc78a006ed14fb0830d4e752dbabc6cff4382 (patch) | |
| tree | 47943f2cdde836c476eebdd69d2e16b79fa7bbe7 /perl | |
| parent | 6010a16bcfd29e419225eca92d70e9d9f070af32 (diff) | |
Fix po4a: Really treat line-based Markdown markup as such.
Diffstat (limited to 'perl')
| -rw-r--r-- | perl/Locale/Po4a/Text.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/perl/Locale/Po4a/Text.pm b/perl/Locale/Po4a/Text.pm index 77a5cbe..eb8ded9 100644 --- a/perl/Locale/Po4a/Text.pm +++ b/perl/Locale/Po4a/Text.pm @@ -175,11 +175,11 @@ sub parse { $paragraph=""; $wrapped_mode = 1; } elsif ($markdown and - ( $line =~ m/^#/)) { - # Found Markdown headline - $wrapped_mode = 0; - $paragraph .= $line."\n"; + ( $line =~ /^#/ # headline + or $line =~ /^\s*\[\[\!\S[^\]]*\]\]\s*$/)) { # sole macro + # Found Markdown markup that should be preserved as a single line do_paragraph($self,$paragraph,$wrapped_mode); + do_paragraph($self,$line."\n",0); $paragraph=""; $wrapped_mode = 1; } elsif ($markdown and |