From 16d94df54aae3b3252477492695bd4fe027d1337 Mon Sep 17 00:00:00 2001 From: Siep Kroonenberg Date: Fri, 10 May 2013 12:57:51 +0000 Subject: w32 directory handling git-svn-id: svn://tug.org/texlive/trunk@30368 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/installer/install-menu-text.pl | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'Master/tlpkg/installer/install-menu-text.pl') 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): -- cgit v1.2.3