diff options
Diffstat (limited to 'Master/tlpkg/TeXLive')
-rw-r--r-- | Master/tlpkg/TeXLive/TLPostActions.pm | 14 |
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>; |