summaryrefslogtreecommitdiff
path: root/Master/texmf
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf')
-rwxr-xr-xMaster/texmf/scripts/texlive/generate-language.pl22
1 files changed, 15 insertions, 7 deletions
diff --git a/Master/texmf/scripts/texlive/generate-language.pl b/Master/texmf/scripts/texlive/generate-language.pl
index 3def1f1e757..0077dfa1a78 100755
--- a/Master/texmf/scripts/texlive/generate-language.pl
+++ b/Master/texmf/scripts/texlive/generate-language.pl
@@ -49,11 +49,17 @@ exit (&main ());
sub main
{
# get the db.
- my $tlpdb = TeXLive::TLPDB->new ("root" => "$master");
- $dest || ($dest = kpsewhich("TEXMFSYSVAR") . "/tex/generic/config/language.dat");
- $localconf || ($localconf = kpsewhich("TEXMFLOCAL") . "/tex/generic/config/language-local.dat");
- tllog($::LOG_NORMAL, "writing language.dat data to $dest\n");
- TeXLive::TLUtils::create_language($tlpdb, $dest, $localconf);
+ my $tlpdb = TeXLive::TLPDB->new ("root" => $master);
+
+ $dest = kpsewhich ("TEXMFSYSVAR") . "/tex/generic/config/language.dat"
+ if ! $dest;
+
+ $localconf = kpsewhich ("TEXMFLOCAL")
+ . "/tex/generic/config/language-local.dat"
+ if ! $localconf;
+
+ tllog ($::LOG_NORMAL, "$0: writing language data to $dest\n");
+ TeXLive::TLUtils::create_language ($tlpdb, $dest, $localconf);
}
@@ -73,11 +79,13 @@ generate-language [OPTION]...
=item C<-dest> I<output file>
-specifies the output file
+specifies the output file (default
+TEXMFSYSVAR/tex/generic/config/language.dat).
=item C<-local> I<local conf file>
-specifies the local additions
+specifies the (optional) local additions (default
+TEXMFLOCAL/tex/generic/config/language-local.dat).
=back