diff options
author | Norbert Preining <preining@logic.at> | 2008-04-03 17:45:04 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2008-04-03 17:45:04 +0000 |
commit | 4e1f03943679d63d28186364e040a31dd3560b9f (patch) | |
tree | 595828b04be09d1c30f7295cb92f2ce29a736b9b /Master/tlpkg/installer/install-menu-perltk.pl | |
parent | 0926eb986894aa71ec0df1ec2b9bf4318b6d82ab (diff) |
expand ~ in symlink menus
git-svn-id: svn://tug.org/texlive/trunk@7305 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/installer/install-menu-perltk.pl')
-rw-r--r-- | Master/tlpkg/installer/install-menu-perltk.pl | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/Master/tlpkg/installer/install-menu-perltk.pl b/Master/tlpkg/installer/install-menu-perltk.pl index 169b1388126..6e7fb965b7a 100644 --- a/Master/tlpkg/installer/install-menu-perltk.pl +++ b/Master/tlpkg/installer/install-menu-perltk.pl @@ -510,6 +510,12 @@ sub menu_select_symlink { } sub return_callback { if ($osym) { + my $home = getenv('HOME'); + $home = getenv('USERPROFILE') if (win32); + $home ||= '~'; + $lbin =~ s/^~/$home/; + $linfo =~ s/^~/$home/; + $lman =~ s/^~/$home/; $vars{'sys_bin'} = $lbin; $vars{'sys_info'} = $linfo; $vars{'sys_man'} = $lman; |