diff options
Diffstat (limited to 'Master/texmf')
-rwxr-xr-x | Master/texmf/scripts/texlive/generate-language.pl | 22 |
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 |