[Po4a-commits] "po4a/lib/Locale/Po4a Man.pm,1.140,1.141"
Nicolas FRANCOIS
nekral-guest at alioth.debian.org
Sat Jun 3 00:11:06 UTC 2006
- Previous message: [Po4a-commits] "po4a/t/data-23 mdoc.1, NONE, 1.1 mdoc.fr, NONE,
1.1 mdoc.fr.po, NONE, 1.1 mdoc.pot, NONE, 1.1"
- Next message: [Po4a-commits] "po4a/t/data-23 mdoc.fr,1.1,1.2"
- Messages sorted by:
[ date ]
[ thread ]
[ subject ]
[ author ]
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";
- Previous message: [Po4a-commits] "po4a/t/data-23 mdoc.1, NONE, 1.1 mdoc.fr, NONE,
1.1 mdoc.fr.po, NONE, 1.1 mdoc.pot, NONE, 1.1"
- Next message: [Po4a-commits] "po4a/t/data-23 mdoc.fr,1.1,1.2"
- Messages sorted by:
[ date ]
[ thread ]
[ subject ]
[ author ]
More information about the Po4a-commits
mailing list