[Po4a-commits] r2681 - /trunk/lib/Locale/Po4a/AsciiDoc.pm

[barbier at users.alioth.debian.org]

Author: barbier
Date: Fri Oct 26 22:19:35 2012
New Revision: 2681

URL: http://svn.debian.org/wsvn/po4a/?sc=1&rev=2681
Log:
AsciiDoc: Fix handling of unsplitted attribute list to match its documentation

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=2681&op=diff
==============================================================================
--- trunk/lib/Locale/Po4a/AsciiDoc.pm (original)
+++ trunk/lib/Locale/Po4a/AsciiDoc.pm Fri Oct 26 22:19:35 2012
@@ -157,7 +157,7 @@
     $list =~ s/\]$//;
     $list =~ s/\s+//;
     $list = ",".$list.",";
-    $list =~ m/^,(-?)([^,]*)/;
+    $list =~ m/^,([-+]?)([^,]*)/;
     my $command = $2;
     $self->{translate}->{$type}->{$command} = $list;
     print STDERR "Definition: $type $command: $list\n" if $debug{definitions};
@@ -178,7 +178,7 @@
         $self->{translate}->{macro}->{$macroname} .= '_';
     }
     if ($macroplus eq '+') {
-        $self->{translate}->{macro}->{$macroname} .= '+';
+        $self->{translate}->{macro}->{$macroname} =~ s/^,/,+/;
     }
 }
 
@@ -194,7 +194,7 @@
     my $name = shift;
     my $type = shift;
     return defined($self->{translate}->{$type}->{$name}) &&
-               $self->{translate}->{$type}->{$name} =~ m/\+$/;
+               $self->{translate}->{$type}->{$name} =~ m/^,\+/;
 }
 
 sub process_definition {