summaryrefslogtreecommitdiff
path: root/perl
diff options
context:
space:
mode:
authorJonas Smedegaard <dr@jones.dk>2010-10-18 16:03:33 +0200
committerJonas Smedegaard <dr@jones.dk>2010-10-18 16:03:33 +0200
commit64ee3431f5519f1eb36bd6c62acfb386c2769c8a (patch)
treecf13c41e7412641c0f9252b14fdeaabd799e689b /perl
parentbe81025f42d9175472caf94418caebb3870a71dc (diff)
Fix preserve forced newline in po4a Text module.HEADmaster
Diffstat (limited to 'perl')
-rw-r--r--perl/Locale/Po4a/Text.pm1
1 files changed, 1 insertions, 0 deletions
diff --git a/perl/Locale/Po4a/Text.pm b/perl/Locale/Po4a/Text.pm
index 8f703c8..bbb78af 100644
--- a/perl/Locale/Po4a/Text.pm
+++ b/perl/Locale/Po4a/Text.pm
@@ -651,6 +651,7 @@ sub parse {
or $paragraph =~ /^\$(\S+[{}]\S*\s*)+/ms # Xapian macro
or $paragraph =~ /<(?![a-z]+[:@])/ms # maybe html (tags but not wiki <URI>)
or $paragraph =~ /^[^<]+>/ms # maybe html (tag with vertical space)
+ or $paragraph =~ /\S $/ms # explicit newline
or $paragraph =~ /\[\[\!\S[^\]]+$/ms # macro begin
);
}