[Po4a-commits] "po4a/lib/Locale/Po4a Po.pm, 1.45, 1.46 Pod.pm, 1.17, 1.18"

[Nicolas FRANCOIS]

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

Modified Files:
	Po.pm Pod.pm 
Log Message:
Restore the trailing spaces in the Po.pm:wrap() function.
Fix Pod.pm accordingly.


Index: Po.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/Po.pm,v
retrieving revision 1.45
retrieving revision 1.46
diff -u -d -r1.45 -r1.46
--- Po.pm	3 Sep 2005 20:22:36 -0000	1.45
+++ Po.pm	26 Oct 2005 10:53:25 -0000	1.46
@@ -1154,6 +1154,11 @@
 	$first=0;
 	$res.="$line\n";
     }
+    # Restore the original tariling spaces
+    chop $res;
+    if ($text =~ m/(\s+)$/s) {
+	$res .= $1;
+    }
     return $res;
 }
 

Index: Pod.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/Pod.pm,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -d -r1.17 -r1.18
--- Pod.pm	30 May 2005 07:15:23 -0000	1.17
+++ Pod.pm	26 Oct 2005 10:53:25 -0000	1.18
@@ -42,7 +42,7 @@
 				    $self->input_file().":$line_num",
 				    "=$command",
 				    "wrap"=>1);
-	$self->pushline("=$command $paragraph\n");
+	$self->pushline("=$command $paragraph\n\n");
     }
 }
 
@@ -87,7 +87,7 @@
 				'textblock',
 				"wrap"=>1);
     $paragraph=~ s/ +\n/\n/gm;
-    $self->pushline("$paragraph\n");
+    $self->pushline("$paragraph\n\n");
 }
 
 sub end_pod {}