21 lines
726 B
Text
21 lines
726 B
Text
$NetBSD: patch-ae,v 1.1.1.1 2009/10/02 19:30:13 markd Exp $
|
|
|
|
--- khelpcenter/searchhandlers/khc_mansearch.pl.orig 2007-12-07 01:20:24.000000000 +1300
|
|
+++ khelpcenter/searchhandlers/khc_mansearch.pl
|
|
@@ -55,7 +55,7 @@ my @results;
|
|
while( <MAN> ) {
|
|
# print "RAW:$_";
|
|
chop;
|
|
- /^([^\s]+)\s+\((.*)\)\s+-\s+(.*)$/;
|
|
+ /^([^(]+)\s+\((.*)\)\s+-\s+(.*)$/;
|
|
my $page = $1;
|
|
my $section = $2;
|
|
my $description = $3;
|
|
@@ -73,6 +73,7 @@ if ( $nummatches > 0 ) {
|
|
for my $result ( @results ) {
|
|
my ( $page, $section, $description ) = @$result;
|
|
my $url = "man:" . $page;
|
|
+ $url =~ s/,.*//;
|
|
print "<li><a href=\"$url\">";
|
|
print "$page - $description</a></li>\n";
|
|
if ( ++$count == $maxcount ) { last; }
|