diff options
Diffstat (limited to 'Master/tlpkg/TeXLive/TLPostActions.pm')
-rw-r--r-- | Master/tlpkg/TeXLive/TLPostActions.pm | 21 |
1 files changed, 15 insertions, 6 deletions
diff --git a/Master/tlpkg/TeXLive/TLPostActions.pm b/Master/tlpkg/TeXLive/TLPostActions.pm index 88daef69272..f36f28855b2 100644 --- a/Master/tlpkg/TeXLive/TLPostActions.pm +++ b/Master/tlpkg/TeXLive/TLPostActions.pm @@ -30,19 +30,28 @@ our %PostRemove; # bin-xetex # sub do_install_bin_xetex { - my ($texdir) = @_; + my ($texdir, $texmfsysvar) = @_; # # bin-xetex installs font-config related stuff - # we have to - # - updated the installation path in bin/win32/conf/fonts.conf - # - call fc-cache -v + # + # new version according to Staszek if (-r "$texdir/bin/win32/conf/fonts.conf") { + # we have installed win32, so put it into texmfsysvar + mkdirhier("$texmfsysvar/fonts"); + my @cpycmd; + if (win32()) { + push @cpycmd, "xcopy", "/e", "/i"; + } else { + push @cpycmd, "cp", "-a"; + } + system(@cpycmd, "$texdir/bin/win32/conf", "$texmfsysvar/fonts/conf"); + system(@cpycmd, "$texdir/bin/win32/cache", "$texmfsysvar/fonts/cache"); open(FONTSCONF, "<$texdir/bin/win32/conf/fonts.conf") or die("Cannot open $texdir/bin/win32/conf/fonts.conf"); my @lines = <FONTSCONF>; close(FONTSCONF); - open(FONTSCONF, ">$texdir/bin/win32/conf/fonts.conf") - or die("Cannot open $texdir/bin/win32/conf/fonts.conf for writing"); + open(FONTSCONF, ">$texmfsysvar/fonts/conf/fonts.conf") + or die("Cannot open $texmfsysvar/fonts/conf/fonts.conf for writing"); foreach (@lines) { $_ =~ s!c:/Program Files/texlive/2008!$texdir!; print FONTSCONF; |