From d0c0798f1ef43680ccc322caa84a5bb8d0890d6b Mon Sep 17 00:00:00 2001 From: Jonas Smedegaard 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/Locale/Po4a') 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 hod='get'> Unnamed repository; edit this file 'description' to name the repository.Jonas Smedegaard
summaryrefslogtreecommitdiff
path: root/tags/51/63/20161023050518.DC2525701@xayide.jones.dk/sys
diff options
context:
space:
mode:
authorJonas Smedegaard <dr@jones.dk>2023-06-27 09:35:08 +0200
committerJonas Smedegaard <dr@jones.dk>2023-06-27 09:35:08 +0200
commitfd54908da2b05c526dd3bee9b6dcd093214a220d (patch)
treec69c845069c99d1d01044f6fafda7c08433329c6 /tags/51/63/20161023050518.DC2525701@xayide.jones.dk/sys
parentba46132213560cf3335d53560d519c0ec0190da2 (diff)
Diffstat (limited to 'tags/51/63/20161023050518.DC2525701@xayide.jones.dk/sys')