diff options
-rwxr-xr-x | Master/texmf/scripts/texlive/tlmgr.pl | 13 |
1 files changed, 9 insertions, 4 deletions
diff --git a/Master/texmf/scripts/texlive/tlmgr.pl b/Master/texmf/scripts/texlive/tlmgr.pl index d70906f3083..8cb6ba25d1c 100755 --- a/Master/texmf/scripts/texlive/tlmgr.pl +++ b/Master/texmf/scripts/texlive/tlmgr.pl @@ -845,24 +845,29 @@ sub action_generate { Getopt::Long::Configure(qw(no_pass_through)); GetOptions("localcfg=s" => \$localconf, "dest=s" => \$dest,) or pod2usage(2); init_local_db(); + if ($what =~ m/^language$/i) { $dest || ($dest = kpsewhich ("TEXMFSYSVAR") . "/tex/generic/config/language.dat"); $localconf || ($localconf = kpsewhich ("TEXMFLOCAL") . "/tex/generic/config/language-local.dat"); - info("$0: writing language data to $dest\n"); + debug("$0: writing language data to $dest\n"); TeXLive::TLUtils::create_language ($localtlpdb, $dest, $localconf); + } elsif ($what =~ m/^fmtutil$/i) { $dest || ($dest = kpsewhich("TEXMFSYSVAR") . "/web2c/fmtutil.cnf"); $localconf || ($localconf = kpsewhich("TEXMFLOCAL") . "/web2c/fmtutil-local.cnf"); - info("writing fmtutil.cnf data to $dest\n"); + debug("$0: writing fmtutil.cnf data to $dest\n"); TeXLive::TLUtils::create_fmtutil($localtlpdb, $dest, $localconf); + } elsif ($what =~ m/^updmap$/i) { $dest || ($dest = kpsewhich("TEXMFSYSVAR") . "/web2c/updmap.cfg"); $localconf || ($localconf = kpsewhich("TEXMFLOCAL") . "/web2c/updmap-local.cfg"); - info("$0: writing new updmap.cfg to $dest\n"); + debug("$0: writing new updmap.cfg to $dest\n"); TeXLive::TLUtils::create_updmap ($localtlpdb, $dest, $localconf); + } else { - die "Unknown option for generate: $what"; + die "$0: Unknown option for generate: $what (try --help if you need it)\n"; } + return; } |