Bugfix: index used for texdoc search was wrong.

git-svn-id: svn://tug.org/texlive/trunk@17707 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 4 insertions, 5 deletions

diff --git a/Master/texmf/scripts/tetex/texdoctk.pl b/Master/texmf/scripts/tetex/texdoctk.pl
index d9bad123b17..dced4eae63d 100755
--- a/Master/texmf/scripts/tetex/texdoctk.pl
+++ b/Master/texmf/scripts/tetex/texdoctk.pl
@@ -821,7 +821,6 @@ sub srchstr {
 sub srchtd {
     my ($string) = @_;
     my @res;
-    my $idx = -1; # dummy index for @packname, @topic and @keywords
     my $tdout = `texdoc -M -l $string`;
     if ($?) {
 	&popmsg(0,"texdoc failed, sorry: $!\n".
@@ -831,10 +830,10 @@ sub srchtd {
 	my $i = 0;
 	for my $line (split /\n/, $tdout) {
 	    my @fields = split /\t/, $line;
-	    $doc[$idx][$i] = $fields[2];
-	    $topic[$idx][$i] = basename($fields[2]);
-	    $packname[$idx][$i] = "no package name";
-	    push @res, ($idx, $i++);
+	    $doc[$ncat][$i] = $fields[2];
+	    $topic[$ncat][$i] = basename($fields[2]);
+	    $packname[$ncat][$i] = "no package name";
+	    push @res, ($ncat, $i++);
 	}
 	return @res;
     }