From 7490c4031eb53f351c26bc65ab79b3c1daf81457 Mon Sep 17 00:00:00 2001 From: Siep Kroonenberg Date: Thu, 7 Apr 2016 12:25:35 +0000 Subject: 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 --- Master/tlpkg/tlpostcode/xetex.pl | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'Master/tlpkg/tlpostcode') 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 -- cgit v1.2.3