[Po4a-commits] "po4a/lib/Locale/Po4a Man.pm,1.122,1.123"

[Nicolas FRANCOIS]

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

Modified Files:
	Man.pm 
Log Message:
A .TP or .P may be followed by spaces


Index: Man.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/Man.pm,v
retrieving revision 1.122
retrieving revision 1.123
diff -u -d -r1.122 -r1.123
--- Man.pm	6 Mar 2006 21:47:56 -0000	1.122
+++ Man.pm	6 Mar 2006 21:50:58 -0000	1.123
@@ -587,7 +587,7 @@
         chomp($l2);
         if ($line =~ /^(\.[BI])\s*$/) {
             if (   $l2 =~ /^[.'][\t ]*([BI]|BI|BR|IB|IR|RB|RI|SH|TP)[\t ]/
-                or $l2 =~ /^[.'][\t ]*([BI]|P|PP|TP)$/) {
+                or $l2 =~ /^[.'][\t ]*([BI]|P|PP|TP)\s*$/) {
                 my $font = $line;
                 $font =~ s/^\.([BI])\s*$/$1/;
                 # Register the new current font.