summaryrefslogtreecommitdiff
path: root/Master/tlpkg/installer/install-menu-text.pl
diff options
context:
space:
mode:
authorSiep Kroonenberg <siepo@cybercomm.nl>2013-05-10 12:57:51 +0000
committerSiep Kroonenberg <siepo@cybercomm.nl>2013-05-10 12:57:51 +0000
commit16d94df54aae3b3252477492695bd4fe027d1337 (patch)
tree27c604a6efa6fa969bda49a3c0d86f47b4053661 /Master/tlpkg/installer/install-menu-text.pl
parent5a2af5e099455faf50af26f6762ba119ad2ae3d0 (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-xMaster/tlpkg/installer/install-menu-text.pl7
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):