[Po4a-commits] r2678 - /trunk/lib/Locale/Po4a/AsciiDoc.pm
barbier at users.alioth.debian.org
barbier at users.alioth.debian.org
Fri Oct 26 22:19:25 UTC 2012
Author: barbier
Date: Fri Oct 26 22:19:25 2012
New Revision: 2678
URL: http://svn.debian.org/wsvn/po4a/?sc=1&rev=2678
Log:
AsciiDoc: Fix parsing of definition file
Modified:
trunk/lib/Locale/Po4a/AsciiDoc.pm
Modified: trunk/lib/Locale/Po4a/AsciiDoc.pm
URL: http://svn.debian.org/wsvn/po4a/trunk/lib/Locale/Po4a/AsciiDoc.pm?rev=2678&op=diff
==============================================================================
--- trunk/lib/Locale/Po4a/AsciiDoc.pm (original)
+++ trunk/lib/Locale/Po4a/AsciiDoc.pm Fri Oct 26 22:19:25 2012
@@ -100,6 +100,7 @@
$self->{options}{'debug'}='';
$self->{options}{'verbose'} = 1;
$self->{options}{'attributeentry'}='';
+ $self->{options}{'definitions'}='';
foreach my $opt (keys %options) {
die wrap_mod("po4a::asciidoc",
@@ -120,8 +121,8 @@
attributeentry => {}
};
- if ($options{'definitions'}) {
- $self->parse_definition_file($options{'definitions'})
+ if ($self->{options}{'definitions'}) {
+ $self->parse_definition_file($self->{options}{'definitions'})
}
$self->{options}{attributeentry} =~ /^\s*(.*?)\s*$/s;
foreach my $attr (split(/\s+/s,$1)) {
@@ -189,9 +190,8 @@
dgettext("po4a", "Can't open %s: %s"), $filename, $!);
}
while (<IN>) {
- if (m,^\s*//po4a: ,) {
- process_definition($self, $_);
- }
+ chomp;
+ process_definition($self, $_);
}
close IN;
}
More information about the Po4a-commits
mailing list