diff options
author | Karl Berry <karl@freefriends.org> | 2008-05-31 23:30:08 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2008-05-31 23:30:08 +0000 |
commit | 69a81989414624f5d5c11baeb61295e0226bd855 (patch) | |
tree | 9d3e4f535b80043a32ff16c3c1106bac2fbb48e0 /Master | |
parent | 170545cb81dad154805787658ad36755ed0d06cc (diff) |
avoid (inconsistent) info lines, make them for debugging instead
git-svn-id: svn://tug.org/texlive/trunk@8440 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
-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; } |