diff options
author | Siep Kroonenberg <siepo@cybercomm.nl> | 2013-05-10 12:57:51 +0000 |
---|---|---|
committer | Siep Kroonenberg <siepo@cybercomm.nl> | 2013-05-10 12:57:51 +0000 |
commit | 16d94df54aae3b3252477492695bd4fe027d1337 (patch) | |
tree | 27c604a6efa6fa969bda49a3c0d86f47b4053661 /Master/tlpkg/installer/install-menu-perltk.pl | |
parent | 5a2af5e099455faf50af26f6762ba119ad2ae3d0 (diff) |
w32 directory handling
git-svn-id: svn://tug.org/texlive/trunk@30368 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 | 9 |
1 files changed, 0 insertions, 9 deletions
diff --git a/Master/tlpkg/installer/install-menu-perltk.pl b/Master/tlpkg/installer/install-menu-perltk.pl index 27f3cd03e5a..37e70eb5e74 100644 --- a/Master/tlpkg/installer/install-menu-perltk.pl +++ b/Master/tlpkg/installer/install-menu-perltk.pl @@ -1193,15 +1193,6 @@ sub callback_edit_directories { $vars{'TEXMFSYSVAR'}="$texdirnoslash/texmf-var"; $vars{'TEXMFSYSCONFIG'}="$texdirnoslash/texmf-config"; } - if ($vars{'TEXDIR'} =~ /:$/) { - # drive letter - $vars{'TEXDIR'} = $vars{'TEXDIR'}."/"; - # note: main::do_installation will remove this final slash - } elsif ($vars{'TEXDIR'} =~ /\/$/ and $vars{'TEXDIR'} !~ /:\/$/) { - # remove final slash - $vars{'TEXDIR'} =~ s!/$!!; - } - #$vars{'TEXDIRW'}=$vars{'TEXDIR'} } menu_update_texts(); } |