summaryrefslogtreecommitdiff
path: root/Master/tlpkg/TeXLive/TLPostActions.pm
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2008-06-04 09:35:56 +0000
committerNorbert Preining <preining@logic.at>2008-06-04 09:35:56 +0000
commit6f0d63f15f68a6136303bc513e19c42b558d50eb (patch)
tree9f9639f54157eecb484550b4246677fac069eca2 /Master/tlpkg/TeXLive/TLPostActions.pm
parentdb0038e8aa356bd1d217523b9ef3f7fcd44eb0ab (diff)
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
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>;