summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2008-05-31 23:30:08 +0000
committerKarl Berry <karl@freefriends.org>2008-05-31 23:30:08 +0000
commit69a81989414624f5d5c11baeb61295e0226bd855 (patch)
tree9d3e4f535b80043a32ff16c3c1106bac2fbb48e0
parent170545cb81dad154805787658ad36755ed0d06cc (diff)
avoid (inconsistent) info lines, make them for debugging instead
git-svn-id: svn://tug.org/texlive/trunk@8440 c570f23f-e606-0410-a88d-b1316a301751
-rwxr-xr-xMaster/texmf/scripts/texlive/tlmgr.pl13
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;
}