[Po4a-devel][CVS] po4a/lib/Locale/Po4a Pod.pm,1.8,1.9

[Martin Quinson]

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

Modified Files:
	Pod.pm 
Log Message:
Lines begining with tab also indicate verbatim (was a bug); avoid to create a msgid containing only the new line. It's too painful to get them match during gettextization

Index: Pod.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/Pod.pm,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -d -r1.8 -r1.9
--- Pod.pm	28 Apr 2004 09:42:10 -0000	1.8
+++ Pod.pm	19 Jul 2004 20:32:43 -0000	1.9
@@ -53,6 +53,10 @@
     my ($self, $paragraph, $line_num) = @_;
 #    print "verb: '$paragraph' at $line_num\n";
 
+    if ($paragraph eq "\n") {
+	$self->pushline("$paragraph\n");
+	return;
+    }
     $paragraph=$self->translate($paragraph,
 				$self->input_file().":$line_num",
 				"verbatim");
@@ -72,7 +76,11 @@
     # That way, we'll declare more paragraphs as verbatim than needed, but
     #  that's harmless (only less confortable for translators).
 
-    if ($paragraph =~ m/^ /m) {
+    if ($paragraph eq "\n") {
+	$self->pushline("$paragraph\n");
+	return;
+    }
+    if ($paragraph =~ m/^[ \t]/m) {
 	$self->verbatim($paragraph, $line_num) ;
 	return;
     }