TLPostInstall.pm, now the stuff also works on windows, did I already say I hate it?!

git-svn-id: svn://tug.org/texlive/trunk@8544 c570f23f-e606-0410-a88d-b1316a301751

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>;