Handle empty [] after man page

This commit is contained in:
Jamie Cameron
2008-11-26 18:48:50 +00:00
parent ec919c0e2c
commit 8538cf0383

View File

@@ -193,7 +193,7 @@ if ($section{'man'}) {
if (/(([^,\s]+).*)\s*\((\S+)\)\s+-\s+(.*)/ &&
!$done{$2,$3}++) {
local ($page, $sect, $desc) = ($1, $3, $4);
$page = $1 if ($page =~ /\[(.*)\]/);
$page = $1 if ($page =~ /\[(.+)\]/);
local @pp = split(/[\s+,]/, $page);
map { s/\((\S+)\)//; } @pp;