[Po4a-commits] "po4a/lib/Locale/Po4a Man.pm,1.118,1.119"

Nicolas FRANCOIS nekral-guest at alioth.debian.org
Mon Mar 6 20:41:22 UTC 2006


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

Modified Files:
	Man.pm 
Log Message:
.R is a copyright sign, not a font modifier.


Index: Man.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/Man.pm,v
retrieving revision 1.118
retrieving revision 1.119
diff -u -d -r1.118 -r1.119
--- Man.pm	6 Mar 2006 20:30:56 -0000	1.118
+++ Man.pm	6 Mar 2006 20:41:20 -0000	1.119
@@ -586,8 +586,8 @@
         my ($l2,$r2)=$self->SUPER::shiftline();
         chomp($l2);
         if ($line =~ /^(\.[BI])\s*$/) {
-            if (   $l2 =~ /^[.'][\t ]*([BIR]|BI|BR|IB|IR|RB|RI|SH|TP)[\t ]/
-                or $l2 =~ /^[.'][\t ]*([BIR])$/) {
+            if (   $l2 =~ /^[.'][\t ]*([BI]|BI|BR|IB|IR|RB|RI|SH|TP)[\t ]/
+                or $l2 =~ /^[.'][\t ]*([BI])$/) {
                 # another font macro. Forget about the first one
                 $line = $l2;
                 $ref = $r2;
@@ -624,7 +624,7 @@
     $line .= "\n";
 
     # Handle font requests here
-    if ($line =~ /^[.'][\t ]*([BIR]|BI|BR|IB|IR|RB|RI)(?:(?: +|\t)(.*)|)$/) {
+    if ($line =~ /^[.'][\t ]*([BI]|BI|BR|IB|IR|RB|RI)(?:(?: +|\t)(.*)|)$/) {
         my $macro = $1;
         my $arguments = $2;
         my @args = splitargs($ref,$arguments);




More information about the Po4a-commits mailing list