summaryrefslogtreecommitdiff
path: root/Master/tlpkg/bin/generate-fmtutil
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/bin/generate-fmtutil')
-rwxr-xr-xMaster/tlpkg/bin/generate-fmtutil11
1 files changed, 8 insertions, 3 deletions
diff --git a/Master/tlpkg/bin/generate-fmtutil b/Master/tlpkg/bin/generate-fmtutil
index 79f24060e0f..c616ec9e330 100755
--- a/Master/tlpkg/bin/generate-fmtutil
+++ b/Master/tlpkg/bin/generate-fmtutil
@@ -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
@@ -47,7 +52,7 @@ sub main
}
$dest || ($dest = kpsewhich("TEXMFSYSVAR") . "/web2c/fmtutil.cnf");
$localconf || ($localconf = kpsewhich("TEXMFLOCAL") . "/web2c/fmtutil-local.cnf");
- print "writing fmtutil.cnf data to $dest\n";
+ tllog($::LOG_NORMAL, "writing fmtutil.cnf data to $dest\n");
TeXLive::TLUtils::create_fmtutil($tlpdb, $dest, $localconf);
}