summaryrefslogtreecommitdiff
path: root/Master/tlpkg/installer/install-menu-perltk.pl
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2008-04-03 17:45:04 +0000
committerNorbert Preining <preining@logic.at>2008-04-03 17:45:04 +0000
commit4e1f03943679d63d28186364e040a31dd3560b9f (patch)
tree595828b04be09d1c30f7295cb92f2ce29a736b9b /Master/tlpkg/installer/install-menu-perltk.pl
parent0926eb986894aa71ec0df1ec2b9bf4318b6d82ab (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.pl6
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;