[Po4a-commits] po4a/lib/Locale/Po4a Man.pm,1.41,1.42

[Martin Quinson]

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"
     }