summaryrefslogtreecommitdiff
path: root/perl
diff options
context:
space:
mode:
authorJonas Smedegaard <dr@jones.dk>2008-05-31 16:23:44 +0200
committerJonas Smedegaard <dr@jones.dk>2008-05-31 16:23:44 +0200
commitd6ad15d69a7ded2674e6b43838910c17997ef1e7 (patch)
tree5bba2c423868d4598858c47f1a1e1e9cde7b0b20 /perl
parent45f80a9dc8b39fd41ef9179dc6e155eabf0c8ce9 (diff)
Don't mark oneliners as non-wrap (and polish coding style).
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