[Po4a-commits] "po4a/lib/Locale/Po4a Text.pm,1.5,1.6"

[Nicolas FRANCOIS]

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

Modified Files:
	Text.pm 
Log Message:
* Consider paragraphs with more than 3 consecutive spaces as non-wrapped
  paragraphs.
* Consider paragraphs starting by a bullet ('*') or numberred paragraphs
  ('1)' or '2.') as non-wrapped paragraphs.


Index: Text.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/Text.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -d -r1.5 -r1.6
--- Text.pm	9 Oct 2006 19:08:52 -0000	1.5
+++ Text.pm	9 Oct 2006 19:20:14 -0000	1.6
@@ -98,6 +98,12 @@
             }
             $paragraph .= $line."\n";
         }
+        # paragraphs starting by a bullet, or numbered
+        # or paragraphs with a line containing many consecutive spaces
+        # (more than 3)
+        # are considered as verbatim paragraphs
+        $wrapped_mode = 0 if (   $paragraph =~ m/^(\*|[0-9]+[.)] )/s
+                              or $paragraph =~ m/[ \t][ \t][ \t]/s);
         ($line,$ref)=$self->shiftline();
     }
     if (length $paragraph) {