[Po4a-commits] po4a/lib/Locale/Po4a Man.pm,1.41,1.42
Martin Quinson
po4a-devel@lists.alioth.debian.org
Fri, 24 Sep 2004 13:58:59 +0000
Update of /cvsroot/po4a/po4a/lib/Locale/Po4a
In directory haydn:/tmp/cvs-serv10566
Modified Files:
Man.pm
Log Message:
do not change hyphen on .mso arguments either; .mso is now supported
Index: Man.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/Man.pm,v
retrieving revision 1.41
retrieving revision 1.42
diff -u -d -r1.41 -r1.42
--- Man.pm 24 Sep 2004 13:52:51 -0000 1.41
+++ Man.pm 24 Sep 2004 13:58:57 -0000 1.42
@@ -119,7 +119,7 @@
.BE ..br .Bu .BUGS .BY
.ce .dbmmanage .do .En
.EP .EX .Fi .hw .i
- .Id .l .LO .mf .mso
+ .Id .l .LO .mf
.N .na .NF .nh .nl
.Nm .ns .NXR .OPTIONS .PB
.pp .PR .PRE .PU .REq
@@ -364,7 +364,8 @@
$str =~ s|\\-|-|sg; # in case the translator added some of them manually
# change hyphens to minus signs
# (this shouldn't be done for \s-<number> font size modifiers)
- if (! (defined $self->{type} && $self->{type} eq "so")) {
+ # nor on .so/.mso args
+ unless (defined $self->{type} && $self->{type} =~ m/^m?so$/) {
$str =~ s/(?<!\\s)-/\\-/sg; # (?<!pattern) means "not preceded by pattern"
}