summaryrefslogtreecommitdiff
path: root/perl
diff options
context:
space:
mode:
Diffstat (limited to 'perl')
-rw-r--r--perl/Locale/Po4a/Text.pm5
1 files changed, 3 insertions, 2 deletions
diff --git a/perl/Locale/Po4a/Text.pm b/perl/Locale/Po4a/Text.pm
index eb8ded9..2f9e511 100644
--- a/perl/Locale/Po4a/Text.pm
+++ b/perl/Locale/Po4a/Text.pm
@@ -179,9 +179,10 @@ sub parse {
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="";
+ $paragraph="$line\n";
$wrapped_mode = 1;
+ do_paragraph($self,$paragraph,$wrapped_mode);
+ $paragraph="";
} elsif ($markdown and
( $paragraph =~ m/^>/ # blockquote
or $paragraph =~ m/[<>]/ # maybe html