blob: a973c4bfb210ca7ddc5c66046a3b49dea3eec372 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
$NetBSD: patch-ca,v 1.4 2005/12/17 19:36:27 markd Exp $
--- khelpcenter/searchhandlers/khc_mansearch.pl.orig 2005-12-01 00:32:43.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; }
|
