summaryrefslogtreecommitdiff
path: root/Master/tlpkg/bin/generate-language
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/bin/generate-language')
-rwxr-xr-xMaster/tlpkg/bin/generate-language11
1 files changed, 8 insertions, 3 deletions
diff --git a/Master/tlpkg/bin/generate-language b/Master/tlpkg/bin/generate-language
index 0e3711300fd..dc82106aa69 100755
--- a/Master/tlpkg/bin/generate-language
+++ b/Master/tlpkg/bin/generate-language
@@ -18,14 +18,14 @@ use strict;
use TeXLive::TLConfig;
use TeXLive::TLPOBJ;
use TeXLive::TLPDB;
-use TeXLive::TLUtils qw/kpsewhich/;
+use TeXLive::TLUtils qw/kpsewhich tllog/;
use Getopt::Long;
use Pod::Usage;
use File::Path;
use Cwd 'abs_path';
our $mydir;
-our $opt_debug = 0;
+my $opt_debug = 0;
my $help = 0;
my $dest = "";
my $localconf = "";
@@ -35,6 +35,11 @@ GetOptions("debug!", "dest=s" => \$dest,
pod2usage(-exitstatus => 0, -verbose => 2) if $help;
+if ($opt_debug) {
+ $::LOGLEVELFILE = $::LOG_DDDEBUG;
+ $::LOGLEVELTERMINAL = $::LOG_DDDEBUG;
+}
+
exit (&main ());
sub main
@@ -44,7 +49,7 @@ sub main
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");
- print "writing language.dat data to $dest\n";
+ tllog($::LOG_NORMAL, "writing language.dat data to $dest\n");
TeXLive::TLUtils::create_language($tlpdb, $dest, $localconf);
}