From fb11d849ffed76a34d6e849e37fddace1894a48a Mon Sep 17 00:00:00 2001 From: Jonas Smedegaard Date: Thu, 23 Oct 2008 00:47:12 +0200 Subject: Disable wrap on macro begin at middle of a line. --- perl/Locale/Po4a/Text.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/perl/Locale/Po4a/Text.pm b/perl/Locale/Po4a/Text.pm index ee56046..32f9dec 100644 --- a/perl/Locale/Po4a/Text.pm +++ b/perl/Locale/Po4a/Text.pm @@ -247,7 +247,7 @@ sub parse { or $paragraph =~ /^\$(\S+[{}]\S*\s*)+/ms # Xapian macro or $paragraph =~ /<(?![a-z]+[:@])/ms # maybe html (tags but not wiki ) or $paragraph =~ /^[^<]+>/ms # maybe html (tag with vertical space) - or $paragraph =~ /^\s*\[\[\!\S[^\]]+$/ms # macro begin + or $paragraph =~ /\[\[\!\S[^\]]+$/ms # macro begin ); } if ($end_of_paragraph) { -- cgit v1.2.3