[Po4a-commits] r2600 - /trunk/lib/Locale/Po4a/Text.pm

[barbier at users.alioth.debian.org]

Author: barbier
Date: Sun Sep 30 12:17:16 2012
New Revision: 2600

URL: http://svn.debian.org/wsvn/po4a/?sc=1&rev=2600
Log:
Text.pm: quote asciidoc style parameter

Modified:
    trunk/lib/Locale/Po4a/Text.pm

Modified: trunk/lib/Locale/Po4a/Text.pm
URL: http://svn.debian.org/wsvn/po4a/trunk/lib/Locale/Po4a/Text.pm?rev=2600&op=diff
==============================================================================
--- trunk/lib/Locale/Po4a/Text.pm (original)
+++ trunk/lib/Locale/Po4a/Text.pm Sun Sep 30 12:17:16 2012
@@ -511,16 +511,17 @@
         undef $self->{bullet};
         undef $self->{indent};
     } elsif (not defined $self->{verbatim} and
-             ($line =~ m/^\[(verse|quote), +(.*)\]$/)) {
-        my $type = $1;
-        my $arg = $2;
+             ($line =~ m/^\[(['"]?)(verse|quote)\1, +(.*)\]$/)) {
+        my $quote = $1 || '';
+        my $type = $2;
+        my $arg = $3;
         do_paragraph($self,$paragraph,$wrapped_mode);
         $paragraph="";
         my $t = $self->translate($arg,
                                  $self->{ref},
                                  "$type",
                                  "wrap" => 0);
-        $self->pushline("[$type, $t]\n");
+        $self->pushline("[$quote$type$quote, $t]\n");
         $wrapped_mode = 1;
         if ($type  eq "verse") {
             $wrapped_mode = 0;