summaryrefslogtreecommitdiff
path: root/perl
diff options
context:
space:
mode:
authorJonas Smedegaard <dr@jones.dk>2008-10-23 01:06:18 +0200
committerJonas Smedegaard <dr@jones.dk>2008-10-23 01:06:18 +0200
commite35add35a02e84a99b83a4090870ac634e344ca6 (patch)
tree17cbb18e13e5add072b722e8c83ec5aa40786097 /perl
parentfb11d849ffed76a34d6e849e37fddace1894a48a (diff)
Drop superfluous /ms regex extensions.
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 32f9dec..0caec0b 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 =~ /^>/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
+ $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
);
}
if ($end_of_paragraph) {