diff --git a/lib/Text/Dokuwiki/Parser.pm b/lib/Text/Dokuwiki/Parser.pm index 9db22db..8bbab97 100644 --- a/lib/Text/Dokuwiki/Parser.pm +++ b/lib/Text/Dokuwiki/Parser.pm @@ -158,6 +158,7 @@ sub _parse_include { } my $inlines = { + "%%" => "%%", # nowiki "__" => "__", # underline "//" => "//", # italic "**" => "**", # bold @@ -172,7 +173,7 @@ sub _parse_text { my @parts = (); while ($line) { - $line =~ m!^(?:(.*?)(__|//|''|\*\*|\[\[|\{\{|\(\(|\\\\ ))?(.*)!o; + $line =~ m!^(?:(.*?)(%%|__|//|''|\*\*|\[\[|\{\{|\(\(|\\\\ ))?(.*)!o; my ($before, $match, $after) = ($1, $2, $3); if ($before) { push @parts, $before; @@ -207,6 +208,7 @@ sub _parse_text { elsif ($match eq "''") { $tag = 'code'; } elsif ($match eq "{{") { push @parts, $self->_parse_include($content); next; } elsif ($match eq "[[") { push @parts, $self->_parse_link($content); next; } + elsif ($match eq "%%") { push @parts, $content; next; } elsif ($match eq "((") { push @{ $self->{footnotes} }, $self->_parse_text($content); my $n = scalar @{ $self->{footnotes} };