From 805fc78a006ed14fb0830d4e752dbabc6cff4382 Mon Sep 17 00:00:00 2001 From: Jonas Smedegaard Date: Sat, 31 May 2008 12:58:40 +0200 Subject: Fix po4a: Really treat line-based Markdown markup as such. --- perl/Locale/Po4a/Text.pm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'perl') 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 -- cgit v1.2.3