[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