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

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; }