diff options
| author | Jonas Smedegaard <dr@jones.dk> | 2008-08-02 23:41:37 +0200 |
|---|---|---|
| committer | Jonas Smedegaard <dr@jones.dk> | 2013-10-13 00:47:50 +0200 |
| commit | 6efb13d8a0a075b4a78ae4bbe6c59a2e4a565266 (patch) | |
| tree | be1688fc5e821e8c89603051d6da9ee4c6a61bc9 /Locale/Po4a | |
| parent | 47ca672d2f68d2da1426400c810fb5067b328346 (diff) | |
Sync Locale::Po4a::Text with po4a 0.34.
Diffstat (limited to 'Locale/Po4a')
| -rw-r--r-- | Locale/Po4a/Text.pm | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/Locale/Po4a/Text.pm b/Locale/Po4a/Text.pm index eecd333..093b572 100644 --- a/Locale/Po4a/Text.pm +++ b/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 |