Remove trailing space when item has no text

rwstauner · Aug 16, 2015 · 3773358 · 3773358
1 parent 72207e4
commit 3773358
Show file tree

Hide file tree

Showing 2 changed files with 21 additions and 1 deletion.
diff --git 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
@@ -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