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-wizard.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-wizard.pl')
-rw-r--r-- | Master/tlpkg/installer/install-menu-wizard.pl | 9 |
1 files changed, 0 insertions, 9 deletions
diff --git a/Master/tlpkg/installer/install-menu-wizard.pl b/Master/tlpkg/installer/install-menu-wizard.pl index 11808d9334e..e44e29ed072 100644 --- a/Master/tlpkg/installer/install-menu-wizard.pl +++ b/Master/tlpkg/installer/install-menu-wizard.pl @@ -553,15 +553,6 @@ sub callback_change_texdir { $vars{'TEXMFSYSVAR'}="$texdirnoslash/texmf-var"; $vars{'TEXMFSYSCONFIG'}="$texdirnoslash/texmf-config"; } - if ($vars{'TEXDIR'} =~ /:$/) { - # drive letter: add final slash - $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'}; $dest = $vars{'TEXDIR'}; $dest_display = native_slashify($dest); # useful as -textvar value in Labels check_show_warning(); |