summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/latex/glossary/makeglos.pl
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/doc/latex/glossary/makeglos.pl')
-rw-r--r--Master/texmf-dist/doc/latex/glossary/makeglos.pl16
1 files changed, 10 insertions, 6 deletions
diff --git a/Master/texmf-dist/doc/latex/glossary/makeglos.pl b/Master/texmf-dist/doc/latex/glossary/makeglos.pl
index 456001bc7fb..0b3cb56f008 100644
--- a/Master/texmf-dist/doc/latex/glossary/makeglos.pl
+++ b/Master/texmf-dist/doc/latex/glossary/makeglos.pl
@@ -2,7 +2,7 @@
# File : makeglos
# Author : Nicola Talbot
-# Version : 1.4 (2005/11/19)
+# Version : 1.5 (2006/07/20)
# Description: simple Perl script that calls makeindex.
# Intended for use with "glossary.sty" (saves having to remember
# all the various switches)
@@ -40,7 +40,10 @@ else
$name = @ARGV[0];
}
+$istfile = "$name.ist";
+
# check log file for other glossary types
+# and for ist file name
if (open AUXFILE, "$name.aux")
{
@@ -57,6 +60,11 @@ if (open AUXFILE, "$name.aux")
print "added glossary type '$2' ($3,$4,$1)\n";
}
}
+
+ if (m/\\\@istfilename\s*{([^}]*)}/)
+ {
+ $istfile = $1;
+ }
}
close AUXFILE;
@@ -105,11 +113,7 @@ unless ($opt_p eq "")
$mkidxopts .= " -p $opt_p";
}
-if ($opt_s eq "")
-{
- $istfile = "$name.ist";
-}
-else
+unless ($opt_s eq "")
{
$istfile = $opt_s;
}