|
|
@ -279,6 +279,7 @@ sub parse { |
|
|
|
} elsif ($text =~ m/\G$rx->{paragraph}/cgi) { |
|
|
|
} elsif ($text =~ m/\G$rx->{paragraph}/cgi) { |
|
|
|
my $text = $+{text}; |
|
|
|
my $text = $+{text}; |
|
|
|
chomp $text; |
|
|
|
chomp $text; |
|
|
|
|
|
|
|
$text =~ tr/\r\n/ /; |
|
|
|
push @tree, [p => {}, $self->_parse_text($text)]; |
|
|
|
push @tree, [p => {}, $self->_parse_text($text)]; |
|
|
|
} elsif ($text =~ m/\G$rx->{emptyline}/cgi) { |
|
|
|
} elsif ($text =~ m/\G$rx->{emptyline}/cgi) { |
|
|
|
next; |
|
|
|
next; |
|
|
|