diff options
| author | Russ Allbery <rra@stanford.edu> | 2000-08-10 13:49:25 -0700 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-08-18 21:16:14 +0000 |
| commit | fe2227f03ae2de69c0a991635f71dff4e075710e (patch) | |
| tree | 3bb32def9d0649fce17444b61835e1dccc7e626e /lib/Pod | |
| parent | aaa51d5e11b8b0db616a7f939c784733b4cfef87 (diff) | |
| download | perl-fe2227f03ae2de69c0a991635f71dff4e075710e.tar.gz | |
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
Diffstat (limited to 'lib/Pod')
| -rw-r--r-- | lib/Pod/Man.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Pod/Man.pm b/lib/Pod/Man.pm index 439b22c35b..b49e184e68 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}) { |