diff options
author | Reinhard Kotucha <reinhard.kotucha@web.de> | 2007-10-12 20:55:55 +0000 |
---|---|---|
committer | Reinhard Kotucha <reinhard.kotucha@web.de> | 2007-10-12 20:55:55 +0000 |
commit | dd221d72c5189b8451fde5d974c69937fdbb15ae (patch) | |
tree | afdcd71b36e2fb008471faae0caba4aaf9f696a8 /Master/install-tl.pl | |
parent | 6a0e2ad7fbd5390f452276199fb1be9567494426 (diff) |
install-tl.pl: schemes menu now provides output.
git-svn-id: svn://tug.org/texlive/trunk@5171 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/install-tl.pl')
-rwxr-xr-x | Master/install-tl.pl | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/Master/install-tl.pl b/Master/install-tl.pl index 8ad5909c9ef..42de4acb40c 100755 --- a/Master/install-tl.pl +++ b/Master/install-tl.pl @@ -355,6 +355,19 @@ sub scheme_menu { ++$index; } + foreach $entry (keys %vars) { + if ($entry=~/^inst-(Documentation|Package|TLCore)/) { + $vars{"$entry"}=0; + } + } + + my $scheme_tlpobj = $tlpdb->get_package($vars{'selected_scheme'}); + if (defined ($scheme_tlpobj)) { + foreach my $dependent ($scheme_tlpobj->depends) { + $vars{"inst-$dependent"}=1; + } + } + other_options; print 'Press key to select a scheme: '; |