diff options
author | Karl Berry <karl@freefriends.org> | 2019-12-21 23:18:19 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2019-12-21 23:18:19 +0000 |
commit | 83c63420b969b7ed183561d697241f3847986adb (patch) | |
tree | 994ff407f86db547addc94b83aa1178fe4042b99 /Master/tlpkg/installer/install-menu-text.pl | |
parent | 5c2f94c006a089039b922a9b91c8200360f9278f (diff) |
TLUtils.pm (texdir_check): return failure if given $texdir contains
various characters special to kpathsea expansion, such as ,$:{};{}\
If passed new optional second argument, print a message saying so.
install-menu-text.pl (directories_menu, main_menu): pass the second
argument to texdir_check.
TLPOBJ.pm, TeXCatalogue.pm: doc updates.
tl-try-install: accept -p and -r for profile and repo;
also check $profiledir/$profile.pro for convenience.
TLcomma.pro: new test profile (fails, as expected).
This is in response to a query from Victor Kong on the tex-live list:
https://tug.org/pipermail/tex-live/2019-December/044586.html
git-svn-id: svn://tug.org/texlive/trunk@53204 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/installer/install-menu-text.pl')
-rw-r--r-- | Master/tlpkg/installer/install-menu-text.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Master/tlpkg/installer/install-menu-text.pl b/Master/tlpkg/installer/install-menu-text.pl index bef093d075c..82cb81032fb 100644 --- a/Master/tlpkg/installer/install-menu-text.pl +++ b/Master/tlpkg/installer/install-menu-text.pl @@ -503,7 +503,7 @@ sub directories_menu ); menu_head "Directories customization:"; - if (!TeXLive::TLUtils::texdir_check($vars{'TEXDIR'})) { + if (!TeXLive::TLUtils::texdir_check($vars{'TEXDIR'}, 1)) { print "!! The default location as given below is forbidden or !! can't be written to. !! Either change the destination directory using <1> or create it @@ -1068,7 +1068,7 @@ EOF TEXDIR (the main TeX directory): EOF - if (TeXLive::TLUtils::texdir_check($vars{'TEXDIR'})) { + if (TeXLive::TLUtils::texdir_check($vars{'TEXDIR'}, 1)) { print " $vars{'TEXDIR'}\n"; } else { print " !! default location: $vars{'TEXDIR'}\n"; |