[Po4a-commits] "po4a/lib/Locale/Po4a Man.pm,1.126,1.127"

[Nicolas FRANCOIS]

Update of /cvsroot/po4a/po4a/lib/Locale/Po4a
In directory haydn:/tmp/cvs-serv31132/lib/Locale/Po4a

Modified Files:
	Man.pm 
Log Message:
Detect non-wrapped lines (lines starting by spaces) when the line starts
by a font modifier (\f).
This is used in dpkg.1:
\fB     dpkg \-l \(aq*vi*\(aq\fP

In that case, I swap the spaces and the font modifier.


Index: Man.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/Man.pm,v
retrieving revision 1.126
retrieving revision 1.127
diff -u -d -r1.126 -r1.127
--- Man.pm	6 Mar 2006 21:59:36 -0000	1.126
+++ Man.pm	6 Mar 2006 22:09:42 -0000	1.127
@@ -627,6 +627,10 @@
     }
     $line .= "\n";
 
+    # Detect non-wrapped paragraphs
+    # This must be done before handling the .B, .RI ... font requests
+    $line =~ s/^($FONT_RE)(\s+)/$2$1/;
+
     # Handle font requests here
     if ($line =~ /^[.'][\t ]*([BI]|BI|BR|IB|IR|RB|RI)(?:(?: +|\t)(.*)|)$/) {
         my $macro = $1;