[Po4a-commits] r2600 - /trunk/lib/Locale/Po4a/Text.pm
barbier at users.alioth.debian.org
barbier at users.alioth.debian.org
Sun Sep 30 12:17:16 UTC 2012
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;
More information about the Po4a-commits
mailing list