diff --git a/lib/Pod/Markdown.pm b/lib/Pod/Markdown.pm index e280521..b11f678 100644 --- a/lib/Pod/Markdown.pm +++ b/lib/Pod/Markdown.pm @@ -917,7 +917,11 @@ sub _start_item { sub _end_item { my ($self, $marker) = @_; - $self->_save_line($self->_indent($marker . ' ' . $self->_pop_stack_text)); + my $text = $self->_pop_stack_text; + $self->_save_line($self->_indent($marker . + # Add a space only if there is text after the marker. + (defined($text) && length($text) ? ' ' . $text : '') + )); # Store any possible contents in a new stack (like a sub-document). $self->_increase_indent; diff --git a/t/lists.t b/t/lists.t index ee3d7a5..a1ad96c 100644 --- a/t/lists.t +++ b/t/lists.t @@ -76,6 +76,12 @@ And 1. B 2. D + +## No text after number + +1. + + verbatim item EOMARKDOWN # check out Pod::IkiWiki (or something like that)... @@ -219,4 +225,14 @@ D =back +=head2 No text after number + +=over + +=item 1 + + verbatim item + +=back + =cut