diff options
Diffstat (limited to 'Master')
| -rw-r--r-- | Master/tlpkg/installer/install-menu-perltk.pl | 10 |
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/; |