[Po4a-commits] "po4a/lib/Locale/Po4a Text.pm,1.16,1.17"

[Nicolas FRANCOIS]

Update of /cvsroot/po4a/po4a/lib/Locale/Po4a
In directory alioth:/tmp/cvs-serv24303/lib/Locale/Po4a

Modified Files:
	Text.pm 
Log Message:
	* NEWS, lib/Locale/Po4a/Text.pm: Make sure files are not mixed
	together when gettextized at the same time.


Index: Text.pm
===================================================================
RCS file: /cvsroot/po4a/po4a/lib/Locale/Po4a/Text.pm,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -d -r1.16 -r1.17
--- Text.pm	14 Jul 2008 15:55:43 -0000	1.16
+++ Text.pm	14 Jul 2008 18:38:28 -0000	1.17
@@ -130,7 +130,16 @@
     my $wrapped_mode = 1;
     my $expect_header = 1;
     ($line,$ref)=$self->shiftline();
+    my $file = $ref;
+    $file =~ s/:[0-9]+$//;
     while (defined($line)) {
+        $ref =~ m/^(.*):[0-9]+$/;
+        if ($1 ne $file) {
+            $file = $1;
+            do_paragraph($self,$paragraph,$wrapped_mode);
+            $paragraph="";
+        }
+
         chomp($line);
         $self->{ref}="$ref";
         if ($debianchangelog and