|
|
@ -165,7 +165,7 @@ sub _parse_text { |
|
|
|
my @parts = (); |
|
|
|
my @parts = (); |
|
|
|
|
|
|
|
|
|
|
|
while ($line) { |
|
|
|
while ($line) { |
|
|
|
$line =~ m!^(?:(.*?)(__|//|''|\*\*|\[\[|\{\{|\(\())?(.*)!o; |
|
|
|
$line =~ m!^(?:(.*?)(__|//|''|\*\*|\[\[|\{\{|\(\(|\\\\ ))?(.*)!o; |
|
|
|
my ($before, $match, $after) = ($1, $2, $3); |
|
|
|
my ($before, $match, $after) = ($1, $2, $3); |
|
|
|
if ($before) { |
|
|
|
if ($before) { |
|
|
|
push @parts, $before; |
|
|
|
push @parts, $before; |
|
|
@ -178,7 +178,7 @@ sub _parse_text { |
|
|
|
} |
|
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
given ($match) { |
|
|
|
given ($match) { |
|
|
|
when ('\\ ') { # force newline |
|
|
|
when ('\\\\ ') { # force newline |
|
|
|
push @parts, [br => {}]; |
|
|
|
push @parts, [br => {}]; |
|
|
|
$line = $after; |
|
|
|
$line = $after; |
|
|
|
next; |
|
|
|
next; |
|
|
|