diff options
| author | Ruslan Ermilov <ru@FreeBSD.org> | 2001-08-09 15:23:30 +0000 |
|---|---|---|
| committer | Ruslan Ermilov <ru@FreeBSD.org> | 2001-08-09 15:23:30 +0000 |
| commit | 9023135631ae200f5839d47a6647104d2b8c4159 (patch) | |
| tree | 74c7dd8e12bafd551344e059bb22b450cd09111d /gnu | |
| parent | b07badb7bd8f0d03ba06a951f1a59ad6c36f0fe3 (diff) | |
Notes
Diffstat (limited to 'gnu')
| -rw-r--r-- | gnu/usr.bin/man/makewhatis/makewhatis.perl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gnu/usr.bin/man/makewhatis/makewhatis.perl b/gnu/usr.bin/man/makewhatis/makewhatis.perl index 599220e127fc5..11b0249feb804 100644 --- a/gnu/usr.bin/man/makewhatis/makewhatis.perl +++ b/gnu/usr.bin/man/makewhatis/makewhatis.perl @@ -344,7 +344,7 @@ sub manual { chop; s/^\.IX\s.*//; # delete perlpod garbage s/^\.[A-Z]+[ ]+[0-9]+$//; # delete commands - s/^\.[A-Za-z]+[ \t]*//; # delete commands + s/^\.[A-Za-z]*[ \t]*//; # delete commands s/^\.\\".*$//; #" delete comments s/^[ \t]+//; if ($_) { @@ -375,7 +375,7 @@ sub manual { $list .= @_[1]; $list .= "(@_[2])" if @_[2]; } else { - s/^\.[A-Z][a-z][ \t]*//; + s/^\.([A-Z][a-z])?[ \t]*//; s/[ \t]+$//; $list .= $_; } |
