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

[barbier at users.alioth.debian.org]

Author: barbier
Date: Mon Sep 10 17:07:17 2012
New Revision: 2580

URL: http://svn.debian.org/wsvn/po4a/?sc=1&rev=2580
Log:
Do not wrap tables in Asciidoc

Report and patch by Anders Nawroth, thanks!

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=2580&op=diff
==============================================================================
--- trunk/lib/Locale/Po4a/Text.pm (original)
+++ trunk/lib/Locale/Po4a/Text.pm Mon Sep 10 17:07:17 2012
@@ -373,7 +373,7 @@
             $self->pushline($titlelevel1.$titlespaces.$t.$titlelevel2."\n");
             $wrapped_mode = 1;
         } elsif ($asciidoc and
-                 ($line =~ m/^(\/{4,}|\+{4,}|-{4,}|\.{4,}|\*{4,}|_{4,}|={4,}|~{4,})$/)) {
+                 ($line =~ m/^(\/{4,}|\+{4,}|-{4,}|\.{4,}|\*{4,}|_{4,}|={4,}|~{4,}|\|={4,})$/)) {
             # Found one delimited block
             my $t = $line;
             $t =~ s/^(.).*$/$1/;
@@ -395,7 +395,7 @@
                     # PassthroughBlock
                     $wrapped_mode = 0;
                     $self->{verbatim} = 1;
-                } elsif ($t eq "-") {
+                } elsif ($t eq "-" or $t eq "|") {
                     # ListingBlock
                     $wrapped_mode = 0;
                     $self->{verbatim} = 1;