summaryrefslogtreecommitdiff
path: root/perl
diff options
context:
space:
mode:
authorJonas Smedegaard <dr@jones.dk>2008-08-02 23:41:37 +0200
committerJonas Smedegaard <dr@jones.dk>2008-08-02 23:41:37 +0200
commitd0c0798f1ef43680ccc322caa84a5bb8d0890d6b (patch)
tree22e09fc10105f7ade4ea15b9e783cb522e51765f /perl
parentd3836ce9d56ce37e7e405d703651d7a8926d2553 (diff)
Sync Locale::Po4a::Text with po4a 0.34.
Diffstat (limited to 'perl')
-rw-r--r--perl/Locale/Po4a/Text.pm9
1 files changed, 9 insertions, 0 deletions
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