From d0c0798f1ef43680ccc322caa84a5bb8d0890d6b Mon Sep 17 00:00:00 2001
From: Jonas Smedegaard <dr@jones.dk>
Date: Sat, 2 Aug 2008 23:41:37 +0200
Subject: Sync Locale::Po4a::Text with po4a 0.34.

---
 perl/Locale/Po4a/Text.pm | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 'perl')

diff --git a/perl/Locale/Po4a/Text.pm b/perl/Locale/Po4a/Text.pm
index eecd333..093b572 100644
--- a/perl/Locale/Po4a/Text.pm
+++ b/perl/Locale/Po4a/Text.pm
@@ -130,7 +130,16 @@ sub parse {
     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
-- 
cgit v1.2.3