From be81025f42d9175472caf94418caebb3870a71dc Mon Sep 17 00:00:00 2001
From: Jonas Smedegaard <dr@jones.dk>
Date: Mon, 18 Oct 2010 16:00:31 +0200
Subject: Sync with po4a 0.40.1.
---
perl/Locale/Po4a/Text.pm | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
(limited to 'perl/Locale')
diff --git a/perl/Locale/Po4a/Text.pm b/perl/Locale/Po4a/Text.pm
index 676363d..8f703c8 100644
--- a/perl/Locale/Po4a/Text.pm
+++ b/perl/Locale/Po4a/Text.pm
@@ -25,11 +25,11 @@
=head1 NAME
-Locale::Po4a::Text - Convert text documents from/to PO files
+Locale::Po4a::Text - convert text documents from/to PO files
=head1 DESCRIPTION
-The po4a (po for anything) project goal is to ease translations (and more
+The po4a (PO for anything) project goal is to ease translations (and more
interestingly, the maintenance of translations) using gettext tools on
areas where they were not expected like documentation.
@@ -202,7 +202,7 @@ sub parse {
my $end_of_paragraph = 0;
($line,$ref)=$self->shiftline();
my $file = $ref;
- $file =~ s/:[0-9]+$//;
+ $file =~ s/:[0-9]+$// if defined($line);
while (defined($line)) {
$ref =~ m/^(.*):[0-9]+$/;
if ($1 ne $file) {
--
cgit v1.2.3