[Po4a-commits] "po4a/lib/Locale/Po4a Text.pm,1.3,1.4"

[Nicolas FRANCOIS]

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

Modified Files:
	Text.pm 
Log Message:
Better handling of empty paragraphs (empty line followed by another one).
The module generated additional empty lines.


Index: Text.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/Text.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- Text.pm	29 Aug 2006 21:32:43 -0000	1.3
+++ Text.pm	9 Oct 2006 18:54:56 -0000	1.4
@@ -77,7 +77,8 @@
         if ($line =~ /^\s*$/) {
             # Break paragraphs on lines containing only spaces
             do_paragraph($self,$paragraph,$wrapped_mode);
-            $self->pushline("\n") unless ($wrapped_mode == 0);
+            $self->pushline("\n") unless (   $wrapped_mode == 0
+                                          or $paragraph eq "");
             $paragraph="";
             $wrapped_mode = 1;
             $self->pushline($line."\n");
@@ -98,6 +99,7 @@
 
 sub do_paragraph {
     my ($self, $paragraph, $wrap) = (shift, shift, shift);
+    return if ($paragraph eq "");
     $self->pushline( $self->translate($paragraph,
                                       $self->{ref},
                                       "Plain text",