summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlpostcode/xetex.pl
diff options
context:
space:
mode:
authorSiep Kroonenberg <siepo@cybercomm.nl>2016-04-07 12:25:35 +0000
committerSiep Kroonenberg <siepo@cybercomm.nl>2016-04-07 12:25:35 +0000
commit7490c4031eb53f351c26bc65ab79b3c1daf81457 (patch)
tree0462156a37c8a9af877639b185a636b9b410e885 /Master/tlpkg/tlpostcode/xetex.pl
parent80d10bf2d1f544d9c0c2a50c0bd5c235dc18570b (diff)
Updates for Windows, esp. making TL read-only for admin installs
git-svn-id: svn://tug.org/texlive/trunk@40301 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/tlpostcode/xetex.pl')
-rw-r--r--Master/tlpkg/tlpostcode/xetex.pl4
1 files changed, 3 insertions, 1 deletions
diff --git a/Master/tlpkg/tlpostcode/xetex.pl b/Master/tlpkg/tlpostcode/xetex.pl
index ac109c5c515..4a28008bb1a 100644
--- a/Master/tlpkg/tlpostcode/xetex.pl
+++ b/Master/tlpkg/tlpostcode/xetex.pl
@@ -10,11 +10,13 @@
my $texdir;
my $mode;
+my $skip_gen; # not used for (un)install
BEGIN {
$^W = 1;
$mode = lc($ARGV[0]);
$texdir = $ARGV[1];
+ $skip_gen = (defined $ARGV[2]) ? 1 : 0; # not used with normal installs
# make Perl find our packages first:
unshift (@INC, "$texdir/tlpkg");
}
@@ -80,7 +82,7 @@ sub do_install {
warn("open($texdir/tlpkg/tlpostcode/xetex/conf/fonts.conf) failed: $!");
}
}
- if (win32()) {
+ if (win32() && !$skip_gen) {
# call fc-cache but only when we install on w32!
info("Running fc-cache -v -r\n");
log( `fc-cache -v -r 2>&1` ); # run it, log output