summaryrefslogtreecommitdiff
path: root/Master/tlpkg/bin/generate-updmap
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/bin/generate-updmap')
-rwxr-xr-xMaster/tlpkg/bin/generate-updmap11
1 files changed, 8 insertions, 3 deletions
diff --git a/Master/tlpkg/bin/generate-updmap b/Master/tlpkg/bin/generate-updmap
index 213b49bf7fc..bd4cca20038 100755
--- a/Master/tlpkg/bin/generate-updmap
+++ b/Master/tlpkg/bin/generate-updmap
@@ -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, "local=s" => \$localconf,
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") . "/web2c/updmap.cfg");
$localconf || ($localconf = kpsewhich("TEXMFLOCAL") . "/web2c/updmap-local.cfg");
- print "$0: writing new updmap.cfg to $dest\n";
+ tllog($::LOG_NORMAL, "$0: writing new updmap.cfg to $dest\n");
TeXLive::TLUtils::create_updmap ($tlpdb, $dest, $localconf);
}