summaryrefslogtreecommitdiff
path: root/Build/source/texk/texlive/linked_scripts/texlive/fmtutil.pl
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2021-07-21 20:46:10 +0000
committerKarl Berry <karl@freefriends.org>2021-07-21 20:46:10 +0000
commitb03788d15a8e96a8631d99b12936f40b6341ddb2 (patch)
tree65ba7b291289dd60fac9717b50b5d783174d9445 /Build/source/texk/texlive/linked_scripts/texlive/fmtutil.pl
parent8e350e2335e60d52c5502d1f1aea633fb8008cdd (diff)
fontools (21jul21)
git-svn-id: svn://tug.org/texlive/trunk@60005 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/texlive/linked_scripts/texlive/fmtutil.pl')
-rwxr-xr-xBuild/source/texk/texlive/linked_scripts/texlive/fmtutil.pl66
1 files changed, 32 insertions, 34 deletions
diff --git a/Build/source/texk/texlive/linked_scripts/texlive/fmtutil.pl b/Build/source/texk/texlive/linked_scripts/texlive/fmtutil.pl
index 1e87a90bc36..064da24f2c2 100755
--- a/Build/source/texk/texlive/linked_scripts/texlive/fmtutil.pl
+++ b/Build/source/texk/texlive/linked_scripts/texlive/fmtutil.pl
@@ -1,5 +1,5 @@
#!/usr/bin/env perl
-# $Id: fmtutil.pl 59207 2021-05-15 13:58:40Z preining $
+# $Id: fmtutil.pl 59983 2021-07-18 22:18:08Z karl $
# fmtutil - utility to maintain format files.
# (Maintained in TeX Live:Master/texmf-dist/scripts/texlive.)
#
@@ -24,11 +24,11 @@ BEGIN {
TeX::Update->import();
}
-my $svnid = '$Id: fmtutil.pl 59207 2021-05-15 13:58:40Z preining $';
-my $lastchdate = '$Date: 2021-05-15 15:58:40 +0200 (Sat, 15 May 2021) $';
+my $svnid = '$Id: fmtutil.pl 59983 2021-07-18 22:18:08Z karl $';
+my $lastchdate = '$Date: 2021-07-19 00:18:08 +0200 (Mon, 19 Jul 2021) $';
$lastchdate =~ s/^\$Date:\s*//;
$lastchdate =~ s/ \(.*$//;
-my $svnrev = '$Revision: 59207 $';
+my $svnrev = '$Revision: 59983 $';
$svnrev =~ s/^\$Revision:\s*//;
$svnrev =~ s/\s*\$$//;
my $version = "r$svnrev ($lastchdate)";
@@ -36,7 +36,6 @@ my $version = "r$svnrev ($lastchdate)";
use strict;
use Getopt::Long qw(:config no_autoabbrev ignore_case_always);
use File::Basename;
-use File::Copy;
use File::Spec;
use Cwd;
@@ -736,7 +735,7 @@ sub rebuild_one_format {
if ($poolfile && -f $poolfile) {
print_verbose("attempting to create localized format "
. "using pool=$pool and tcx=$tcx.\n");
- File::Copy::copy($poolfile, "$eng.pool");
+ TeXLive::TLUtils::copy("-f", $poolfile, "$eng.pool");
$tcxflag = "-translate-file=$tcx" if ($tcx);
$localpool = 1;
}
@@ -798,7 +797,7 @@ sub rebuild_one_format {
# to make sure that in SElinux enabled cases the rules of
# the destination directory are applied.
# See https://bugs.debian.org/cgi-bin/bugreport.cgi?bug=900580
- if (File::Copy::copy($logfile, "$destdir/$logfile")) {
+ if (TeXLive::TLUtils::copy("-f", $logfile, "$destdir/$logfile")) {
print_info("log file copied to: $destdir/$logfile\n");
} else {
print_deferred_error("cannot copy log $logfile to: $destdir\n")
@@ -846,7 +845,7 @@ sub rebuild_one_format {
# package dependencies for each format. Unfortunately omega-based
# engines gratuitiously changed the extension from .fls to .ofl.
my $recfile = $fmt . ($fmt =~ m/^(aleph|lamed)$/ ? ".ofl" : ".fls");
- if (!File::Copy::copy($recfile, "$destdir/$recfile")) {
+ if (! TeXLive::TLUtils::copy("-f", $recfile, "$destdir/$recfile")) {
print_deferred_error("cannot copy recorder $recfile to: $destdir\n");
}
}
@@ -856,39 +855,38 @@ sub rebuild_one_format {
# we check whether the next command **would** create a new file,
# and if it succeeded, we set the actual flag.
my $possibly_warn = ($opts{'user'} && ! -r $destfile);
- if (File::Copy::copy($fmtfile, $destfile )) {
+ if (TeXLive::TLUtils::copy("-f", $fmtfile, $destfile)) {
print_info("$destfile installed.\n");
$first_time_creation_in_usermode = $possibly_warn;
#
# original fmtutil.sh did some magic trick for mplib-luatex.mem
- #
# nowadays no mplib mem is created and all files loaded
# so we comment and do not convert this
#
- # As a special special case, we create mplib-luatex.mem for use by
- # the mplib embedded in luatex if it doesn't already exist. (We
- # never update it if it does exist.)
- #
- # This is used by the luamplib package. This way, an expert user
- # who wants to try a new version of luatex (hence with a new
- # version of mplib) can manually update mplib-luatex.mem without
- # having to tamper with mpost itself.
- #
- # if test "x$format" = xmpost && test "x$engine" = xmpost; then
- # mplib_mem_name=mplib-luatex.mem
- # mplib_mem_file=$fulldestdir/$mplib_mem_name
- # if test \! -f $mplib_mem_file; then
- # verboseMsg "$progname: copying $destfile to $mplib_mem_file"
- # if cp "$destfile" "$mplib_mem_file" </dev/null; then
- # mktexupd "$fulldestdir" "$mplib_mem_name"
- # else
- # # failure to copy merits failure handling: e.g., full file system.
- # log_failure "cp $destfile $mplib_mem_file failed."
- # fi
- # else
- # verboseMsg "$progname: $mplib_mem_file already exists, not updating."
- # fi
- # fi
+ ## As a special special case, we create mplib-luatex.mem for use by
+ ## the mplib embedded in luatex if it doesn't already exist. (We
+ ## never update it if it does exist.)
+ ##
+ ## This is used by the luamplib package. This way, an expert user
+ ## who wants to try a new version of luatex (hence with a new
+ ## version of mplib) can manually update mplib-luatex.mem without
+ ## having to tamper with mpost itself.
+ ##
+ ## if test "x$format" = xmpost && test "x$engine" = xmpost; then
+ ## mplib_mem_name=mplib-luatex.mem
+ ## mplib_mem_file=$fulldestdir/$mplib_mem_name
+ ## if test \! -f $mplib_mem_file; then
+ ## verboseMsg "$progname: copying $destfile to $mplib_mem_file"
+ ## if cp "$destfile" "$mplib_mem_file" </dev/null; then
+ ## mktexupd "$fulldestdir" "$mplib_mem_name"
+ ## else
+ ## ## failure to copy merits failure handling: e.g., full file system.
+ ## log_failure "cp $destfile $mplib_mem_file failed."
+ ## fi
+ ## else
+ ## verboseMsg "$progname: $mplib_mem_file already exists, not updating."
+ ## fi
+ ## fi
if ($mktexfmtMode && $mktexfmtFirst) {
print "$destfile\n";