summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorSiep Kroonenberg <siepo@cybercomm.nl>2008-08-11 20:10:40 +0000
committerSiep Kroonenberg <siepo@cybercomm.nl>2008-08-11 20:10:40 +0000
commit0ac9685e6eca1d82835bb59fd5702f90c18a9379 (patch)
tree395084196264871a88c044f9eb21df9bbe1ffc82
parent0a560140a0fef07112f1876e3ead6ec2367bd16b (diff)
install-menu-perltk.pl: more slash-flipping
git-svn-id: svn://tug.org/texlive/trunk@10254 c570f23f-e606-0410-a88d-b1316a301751
-rw-r--r--Master/tlpkg/installer/install-menu-perltk.pl10
1 files changed, 7 insertions, 3 deletions
diff --git a/Master/tlpkg/installer/install-menu-perltk.pl b/Master/tlpkg/installer/install-menu-perltk.pl
index ce3ed28ee57..bc1f5d30be9 100644
--- a/Master/tlpkg/installer/install-menu-perltk.pl
+++ b/Master/tlpkg/installer/install-menu-perltk.pl
@@ -7,7 +7,7 @@
#
# TODO:
# - make the fancy selector the default, at least on unix
-# - for win32 find out the necessary files for the fancy selector and move
+# - for win32 find out the necessary files for the fancy selector and move
# them to the installer perl package
use strict;
@@ -412,7 +412,7 @@ sub run_menu {
debug("Requested height: $rh, requested width: $rw, max height: $maxheight\n");
if ($rh > $maxheight) {
$rh = $maxheight;
- $rw += 20; # for the scrollbar = =
+ $rw += 20; # for the scrollbar = =
}
$subframe->configure(-height => $rh, -width=>$rw);
$subframe->pack(-expand => 1, -fill => "both");
@@ -861,8 +861,12 @@ sub callback_select_systems() {
sub callback_edit_directories {
my ($key,$val) = @_;
my $home = getenv('HOME');
- $home = getenv('USERPROFILE') if (win32());
+ if (win32()) {
+ $home = getenv('USERPROFILE');
+ $home =~ s!\\!/!g;
+ }
$home ||= '~';
+ $val =~ s!\\!/!g;
$vars{$key} = $val;
$vars{'TEXDIR'} =~ s/^~/$home/;
$vars{'TEXMFLOCAL'} =~ s/^~/$home/;