diff options
| author | Jonas Smedegaard <dr@jones.dk> | 2008-05-31 16:23:44 +0200 |
|---|---|---|
| committer | Jonas Smedegaard <dr@jones.dk> | 2008-05-31 16:23:44 +0200 |
| commit | d6ad15d69a7ded2674e6b43838910c17997ef1e7 (patch) | |
| tree | 5bba2c423868d4598858c47f1a1e1e9cde7b0b20 /perl/Locale | |
| parent | 45f80a9dc8b39fd41ef9179dc6e155eabf0c8ce9 (diff) | |
Don't mark oneliners as non-wrap (and polish coding style).
Diffstat (limited to 'perl/Locale')
| -rw-r--r-- | perl/Locale/Po4a/Text.pm | 5 |
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 |