[Po4a-commits] "po4a/lib/Locale/Po4a Text.pm,1.11,1.12"

[Nicolas FRANCOIS]

Update of /cvsroot/po4a/po4a/lib/Locale/Po4a
In directory alioth:/tmp/cvs-serv18584/lib/Locale/Po4a

Modified Files:
	Text.pm 
Log Message:
Better detection of sub-bullets.


Index: Text.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/Text.pm,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -d -r1.11 -r1.12
--- Text.pm	17 Jun 2007 00:19:39 -0000	1.11
+++ Text.pm	4 Jul 2007 18:33:37 -0000	1.12
@@ -143,7 +143,8 @@
             my $indent1 = $1;
             my $indent2 = "$1".(' ' x length $bullet);
             my $text = $4;
-            while ($para =~ s/^$indent2(\S[^\n]*\n)//s) {
+            while ($para !~ m/$indent2(?:[-*o+]|([0-9]+[.\)])|\([0-9]+\))\s+/
+                   and $para =~ s/^$indent2(\S[^\n]*\n)//s) {
                 $text .= $1;
             }
             # TODO: detect if a line starts with the same bullet