[Po4a-commits] "po4a/lib/Locale/Po4a Man.pm,1.180,1.181"

[Nicolas FRANCOIS]

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

Modified Files:
	Man.pm 
Log Message:
(mdoc) Only remove the spaces at the end of an mdoc macros if the space is not
escaped.


Index: Man.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/Man.pm,v
retrieving revision 1.180
retrieving revision 1.181
diff -u -d -r1.180 -r1.181
--- Man.pm	16 Aug 2006 20:16:16 -0000	1.180
+++ Man.pm	20 Aug 2006 08:41:47 -0000	1.181
@@ -802,8 +802,8 @@
             # Here, we move the punctuation out of the E<...> tag.
             # This is reverted in post_trans.
             # FIXME: To be checked with the French punctuation
-            while ($str =~ m/ +([.,;:\)\]]) *>/s) {
-                $str =~ s/ +([.,;:\)\]]) *>/>$1/s;
+            while ($str =~ m/(?<!\\) +([.,;:\)\]]) *>/s) {
+                $str =~ s/(?<!\\) +([.,;:\)\]]) *>/>$1/s;
             }
         }
         if (defined $t3 and length $t3) {