summaryrefslogtreecommitdiff
path: root/perl
diff options
context:
space:
mode:
authorJonas Smedegaard <dr@jones.dk>2008-10-23 13:25:30 +0200
committerJonas Smedegaard <dr@jones.dk>2008-10-23 13:25:58 +0200
commit74a1a276366acb235e5312feeecf89a696898a32 (patch)
treeb49bc71f8891502f1c67a989f866461cfe80d9d9 /perl
parent7ae292540235640e8c6c0025d423605c4d2a0565 (diff)
Revert "Drop superfluous /ms regex extensions."
It is indeed needed for templates. This reverts commit e35add35a02e84a99b83a4090870ac634e344ca6.
Diffstat (limited to 'perl')
-rw-r--r--perl/Locale/Po4a/Text.pm12
1 files changed, 6 insertions, 6 deletions
diff --git a/perl/Locale/Po4a/Text.pm b/perl/Locale/Po4a/Text.pm
index 0caec0b..32f9dec 100644
--- a/perl/Locale/Po4a/Text.pm
+++ b/perl/Locale/Po4a/Text.pm
@@ -242,12 +242,12 @@ sub parse {
if ($markdown) {
# Some Markdown markup can (or might) not survive wrapping
$wrapped_mode = 0 if (
- $paragraph =~ /^>/ # blockquote
- or $paragraph =~ /^( {8}|\t)/ # monospaced
- or $paragraph =~ /^\$(\S+[{}]\S*\s*)+/ # Xapian macro
- or $paragraph =~ /<(?![a-z]+[:@])/ # maybe html (tags but not wiki <URI>)
- or $paragraph =~ /^[^<]+>/ # maybe html (tag with vertical space)
- or $paragraph =~ /\[\[\!\S[^\]]+$/ # macro begin
+ $paragraph =~ /^>/ms # blockquote
+ or $paragraph =~ /^( {8}|\t)/ms # monospaced
+ 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 # macro begin
);
}
if ($end_of_paragraph) {