From d6ad15d69a7ded2674e6b43838910c17997ef1e7 Mon Sep 17 00:00:00 2001
From: Jonas Smedegaard <dr@jones.dk>
Date: Sat, 31 May 2008 16:23:44 +0200
Subject: Don't mark oneliners as non-wrap (and polish coding style).

---
 perl/Locale/Po4a/Text.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'perl/Locale')

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
-- 
cgit v1.2.3