summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorManuel Pégourié-Gonnard <mpg@elzevir.fr>2010-04-05 08:09:17 +0000
committerManuel Pégourié-Gonnard <mpg@elzevir.fr>2010-04-05 08:09:17 +0000
commit9cee45402bfda25c58729c6b3d3afa8da386f099 (patch)
treed9dc516a61a0768c53815f400a134c100f19fa14
parent5f520d157ae2d2c5b471e2b0374a8f05189cf574 (diff)
Bugfix: index used for texdoc search was wrong.
git-svn-id: svn://tug.org/texlive/trunk@17707 c570f23f-e606-0410-a88d-b1316a301751
-rwxr-xr-xMaster/texmf/scripts/tetex/texdoctk.pl9
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;
}