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-text.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-text.pl')
-rwxr-xr-x | Master/tlpkg/installer/install-menu-text.pl | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/Master/tlpkg/installer/install-menu-text.pl b/Master/tlpkg/installer/install-menu-text.pl index ac7c6e748d2..18d2fa66a0b 100755 --- a/Master/tlpkg/installer/install-menu-text.pl +++ b/Master/tlpkg/installer/install-menu-text.pl @@ -578,7 +578,7 @@ sub directories_menu "; } my $texmfdir = $vars{'TEXDIR'} . - ($vars{'TEXDIR'} =~ /\/$/ ? 'texmf' : '/texmf'); + ($vars{'TEXDIR'} =~ /\/$/ ? 'texmf-dist' : '/texmf-dist'); if (!$vars{'in_place'}) { print <<"EOF"; <1> TEXDIR: $vars{'TEXDIR'} @@ -700,7 +700,8 @@ sub input_dirname # relative paths are unlikely to work in texmf.cnf, et al., # and don't have any apparent practical use. Convert to absolute. if (! File::Spec->file_name_is_absolute($answer)) { - $answer = Cwd::abs_path($answer); + $answer = TeXLive::TLUtils::tl_abs_path($answer); + $answer = "" unless defined $answer; } } return $answer; @@ -1124,7 +1125,7 @@ EOF print " $vars{'TEXDIR'}\n"; } else { print " !! default location: $vars{'TEXDIR'}\n"; - print " !! is not writable, please select a different one!\n"; + print " !! is not writable or not allowed, please select a different one!\n"; } print <<"EOF"; TEXMFLOCAL (directory for site-wide local files): |