diff options
| author | Jonas Smedegaard <dr@jones.dk> | 2008-10-23 13:25:30 +0200 |
|---|---|---|
| committer | Jonas Smedegaard <dr@jones.dk> | 2008-10-23 13:25:58 +0200 |
| commit | 74a1a276366acb235e5312feeecf89a696898a32 (patch) | |
| tree | b49bc71f8891502f1c67a989f866461cfe80d9d9 /perl/Locale/Po4a | |
| parent | 7ae292540235640e8c6c0025d423605c4d2a0565 (diff) | |
Revert "Drop superfluous /ms regex extensions."
It is indeed needed for templates.
This reverts commit e35add35a02e84a99b83a4090870ac634e344ca6.
Diffstat (limited to 'perl/Locale/Po4a')
| -rw-r--r-- | perl/Locale/Po4a/Text.pm | 12 |
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) { |