diff options
| author | Siep Kroonenberg <siepo@cybercomm.nl> | 2016-04-07 12:25:35 +0000 |
|---|---|---|
| committer | Siep Kroonenberg <siepo@cybercomm.nl> | 2016-04-07 12:25:35 +0000 |
| commit | 7490c4031eb53f351c26bc65ab79b3c1daf81457 (patch) | |
| tree | 0462156a37c8a9af877639b185a636b9b410e885 /Master/tlpkg/tlpostcode | |
| parent | 80d10bf2d1f544d9c0c2a50c0bd5c235dc18570b (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')
| -rw-r--r-- | Master/tlpkg/tlpostcode/xetex.pl | 4 |
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 |