Don't eat leading os from index entries.

Subject: Re: [ID 20000810.006] Pod::Man Ate My 'O'!
Message-ID: <ylu2cs78ze.fsf@windlord.stanford.edu>

p4raw-id: //depot/perl@6704

diff --git a/lib/Pod/Man.pm b/lib/Pod/Man.pm
index 439b22c..b49e184 100644 (file)
--- a/lib/Pod/Man.pm
+++ b/lib/Pod/Man.pm
@@ -685,7 +685,7 @@ sub cmd_item {
     my $index;
     if (/\w/ && !/^\w[.\)]\s*$/) {
         $index = $_;
-        $index =~ s/^\s*[-*+o.]?\s*//;
+        $index =~ s/^\s*[-*+o.]?(?:\s+|\Z)//;
     }
     s/^\*(\s|\Z)/\\\(bu$1/;
     if ($$self{WEIRDINDENT}) {