diff options
Diffstat (limited to 'Master/tlpkg/bin/generate-updmap')
| -rwxr-xr-x | Master/tlpkg/bin/generate-updmap | 11 |
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); } |