[Po4a-commits] "po4a/lib/Locale/Po4a Man.pm,1.140,1.141"

[Nicolas FRANCOIS]

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

Modified Files:
	Man.pm 
Log Message:
Fix for mdoc punctuation.


Index: Man.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/Man.pm,v
retrieving revision 1.140
retrieving revision 1.141
diff -u -d -r1.140 -r1.141
--- Man.pm	1 Jun 2006 20:50:57 -0000	1.140
+++ Man.pm	3 Jun 2006 00:10:58 -0000	1.141
@@ -928,13 +928,13 @@
 	$str=$done;
     }
 
-    while ($str =~ m/^(.*?)E<([.'][\t ]*.*?)(?<!E<[gl]t)>(.*)$/s) {
+    while ($str =~ m/^(.*?)E<([.'][\t ]*.*?(?<!E<[gl]t))>(.*)$/s) {
         my ($t1, $t2, $t3) = ($1,$2,$3);
         $t1 =~ s/ +$//s;
         $t2 =~ s/\n/ /gs;
         if ($mdoc_mode) {
             # restore the punctuaction inside the line (see pre_trans)
-            if ($t3 =~ s/^([.,;:\)\]]+)(?: +|$)//s) {
+            if ($t3 =~ s/^([.,;:\)\]]+)//s) {
                 my $punctuation = $1;
                 $punctuation =~ s/([.,;:\)\]])/$1 /;
                 $t2 .= " $punctuation";