From: Russ Allbery <rra@stanford.edu>
Date: Thu, 10 Aug 2000 20:49:25 +0000 (-0700)
Subject: Don't eat leading os from index entries.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=fe2227f03ae2de69c0a991635f71dff4e075710e;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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}) {