[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