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