summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLPostActions.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/TeXLive/TLPostActions.pm')
-rw-r--r--Master/tlpkg/TeXLive/TLPostActions.pm14
1 files changed, 11 insertions, 3 deletions
diff --git a/Master/tlpkg/TeXLive/TLPostActions.pm b/Master/tlpkg/TeXLive/TLPostActions.pm
index f36f28855b2..9aac45b6031 100644
--- a/Master/tlpkg/TeXLive/TLPostActions.pm
+++ b/Master/tlpkg/TeXLive/TLPostActions.pm
@@ -17,7 +17,7 @@ BEGIN {
@EXPORT = @EXPORT_OK;
}
-use TeXLive::TLUtils qw(win32 mkdirhier copy);
+use TeXLive::TLUtils qw(win32 mkdirhier copy conv_to_win_path);
use TeXLive::TLWinGoo;
my $mainmenu = "TeX Live 2008";
@@ -44,8 +44,16 @@ sub do_install_bin_xetex {
} else {
push @cpycmd, "cp", "-a";
}
- system(@cpycmd, "$texdir/bin/win32/conf", "$texmfsysvar/fonts/conf");
- system(@cpycmd, "$texdir/bin/win32/cache", "$texmfsysvar/fonts/cache");
+ system(@cpycmd,
+ (win32() ? conv_to_win_path("$texdir/bin/win32/conf") :
+ "$texdir/bin/win32/conf"),
+ (win32() ? conv_to_win_path("$texmfsysvar/fonts/conf") :
+ "$texmfsysvar/fonts/conf"));
+ system(@cpycmd,
+ (win32() ? conv_to_win_path("$texdir/bin/win32/cache") :
+ "$texdir/bin/win32/cache"),
+ (win32() ? conv_to_win_path("$texmfsysvar/fonts/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>;