diff options
Diffstat (limited to 'Master')
-rwxr-xr-x | Master/texmf/scripts/tetex/texdoctk.pl | 9 |
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; } |