texlive[45871] Master/texmf-dist/scripts/texlive/fmtutil.pl: fmtutil
commits+preining at tug.org
commits+preining at tug.org
Tue Nov 21 08:07:36 CET 2017
Revision: 45871
http://tug.org/svn/texlive?view=revision&revision=45871
Author: preining
Date: 2017-11-21 08:07:36 +0100 (Tue, 21 Nov 2017)
Log Message:
-----------
fmtutil missing/refresh part 2: move name computation to parent function
Modified Paths:
--------------
trunk/Master/texmf-dist/scripts/texlive/fmtutil.pl
Modified: trunk/Master/texmf-dist/scripts/texlive/fmtutil.pl
===================================================================
--- trunk/Master/texmf-dist/scripts/texlive/fmtutil.pl 2017-11-21 07:07:26 UTC (rev 45870)
+++ trunk/Master/texmf-dist/scripts/texlive/fmtutil.pl 2017-11-21 07:07:36 UTC (rev 45871)
@@ -467,6 +467,9 @@
my ($fmt, $eng, $what, $whatarg) = @_;
return $FMT_DISABLED
if ($alldata->{'merged'}{$fmt}{$eng}{'status'} eq 'disabled');
+
+ my ($kpsefmt, $destdir, $fmtfile, $logfile) = compute_format_destination($fmt, $eng);
+
my $doit = 0;
# we just identify 'all', 'refresh', 'missing'
# I don't see much point in keeping all of them
@@ -510,7 +513,7 @@
}
}
if ($doit) {
- return rebuild_one_format($fmt,$eng);
+ return rebuild_one_format($fmt, $eng, $kpsefmt, $destdir, $fmtfile, $logfile);
} else {
return $FMT_NOTSELECTED;
}
@@ -555,7 +558,7 @@
# return value FMT_*
#
sub rebuild_one_format {
- my ($fmt, $eng) = @_;
+ my ($fmt, $eng, $kpsefmt, $destdir, $fmtfile, $logfile) = @_;
print_info("--- remaking $fmt with $eng\n");
# get variables
@@ -572,8 +575,6 @@
my $localpool=0;
my $texargs;
- my ($kpsefmt, $destdir, $fmtfile, $logfile) = compute_format_destination($fmt, $eng);
-
unlink glob "*.pool";
# addargs processing:
More information about the tex-live-commits
mailing list