summaryrefslogtreecommitdiff
path: root/perl/Locale
diff options
context:
space:
mode:
authorJonas Smedegaard <dr@jones.dk>2010-10-18 16:03:47 +0200
committerJonas Smedegaard <dr@jones.dk>2010-10-18 16:03:47 +0200
commit313d96c6849824587ef17e514689d24b41252955 (patch)
treed4817ac49b95b73930ca15da2ba7ef697c4bf55d /perl/Locale
parente67112fb007d19594f84743ae2f3b88dc0c5c8da (diff)
parentf3d9b4ad8c60de7bd4f06239a5438a39a0ec3f5e (diff)
Merge branch '_clean' into allinone
Diffstat (limited to 'perl/Locale')
-rw-r--r--perl/Locale/Po4a/Text.pm7
1 files changed, 4 insertions, 3 deletions
diff --git a/perl/Locale/Po4a/Text.pm b/perl/Locale/Po4a/Text.pm
index 676363d..bbb78af 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) {
@@ -651,6 +651,7 @@ sub parse {
or $paragraph =~ /^\$(\S+[{}]\S*\s*)+/ms # Xapian macro
or $paragraph =~ /<(?![a-z]+[:@])/ms # maybe html (tags but not wiki <URI>)
or $paragraph =~ /^[^<]+>/ms # maybe html (tag with vertical space)
+ or $paragraph =~ /\S $/ms # explicit newline
or $paragraph =~ /\[\[\!\S[^\]]+$/ms # macro begin
);
}