summaryrefslogtreecommitdiff
path: root/Master/tlpkg
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg')
-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/;