texlive[45623] Master/texmf-dist/scripts/texlive/tlmgr.pl: sort tlmgr
commits+preining at tug.org
commits+preining at tug.org
Fri Oct 27 16:41:58 CEST 2017
Revision: 45623
http://tug.org/svn/texlive?view=revision&revision=45623
Author: preining
Date: 2017-10-27 16:41:58 +0200 (Fri, 27 Oct 2017)
Log Message:
-----------
sort tlmgr conf output alphabetically per section
Modified Paths:
--------------
trunk/Master/texmf-dist/scripts/texlive/tlmgr.pl
Modified: trunk/Master/texmf-dist/scripts/texlive/tlmgr.pl
===================================================================
--- trunk/Master/texmf-dist/scripts/texlive/tlmgr.pl 2017-10-27 12:47:12 UTC (rev 45622)
+++ trunk/Master/texmf-dist/scripts/texlive/tlmgr.pl 2017-10-27 14:41:58 UTC (rev 45623)
@@ -5896,29 +5896,29 @@
info(give_version());
info("==================== executables found by searching PATH =================\n");
info("PATH: $PATH\n");
- for my $cmd (qw/kpsewhich updmap fmtutil tlmgr tex pdftex luatex xetex
- mktexpk dvips dvipdfmx/) {
+ for my $cmd (sort(qw/kpsewhich updmap fmtutil tlmgr tex pdftex luatex xetex
+ mktexpk dvips dvipdfmx/)) {
info(sprintf("%-10s %s\n", "$cmd:", TeXLive::TLUtils::which($cmd)));
}
info("=========================== active config files ==========================\n");
+ for my $m (sort(qw/fmtutil.cnf config.ps mktex.cnf pdftexconfig.tex/)) {
+ info(sprintf("%-17s %s", "$m:", `kpsewhich $m`));
+ }
for my $m (qw/texmf.cnf updmap.cfg/) {
for my $f (`kpsewhich -all $m`) {
info(sprintf("%-17s %s", "$m:", $f));
}
}
- for my $m (qw/fmtutil.cnf config.ps mktex.cnf pdftexconfig.tex/) {
- info(sprintf("%-17s %s", "$m:", `kpsewhich $m`));
- }
#tlwarn("$prg: missing finding of XDvi, config!\n");
info("============================= font map files =============================\n");
- for my $m (qw/psfonts.map pdftex.map ps2pk.map kanjix.map/) {
+ for my $m (sort(qw/psfonts.map pdftex.map ps2pk.map kanjix.map/)) {
info(sprintf("%-12s %s", "$m:", `kpsewhich $m`));
}
info("=========================== kpathsea variables ===========================\n");
- for my $v (qw/TEXMFMAIN TEXMFDIST TEXMFLOCAL TEXMFSYSVAR TEXMFSYSCONFIG TEXMFVAR TEXMFCONFIG TEXMFHOME VARTEXFONTS TEXMF SYSTEXMF TEXMFDBS WEB2C TEXPSHEADERS TEXCONFIG ENCFONTS TEXFONTMAPS/) {
+ for my $v (sort(qw/TEXMFMAIN TEXMFDIST TEXMFLOCAL TEXMFSYSVAR TEXMFSYSCONFIG TEXMFVAR TEXMFCONFIG TEXMFHOME VARTEXFONTS TEXMF SYSTEXMF TEXMFDBS WEB2C TEXPSHEADERS TEXCONFIG ENCFONTS TEXFONTMAPS/)) {
info("$v=" . `kpsewhich -var-value=$v`);
}
More information about the tex-live-commits
mailing list