summaryrefslogtreecommitdiff
path: root/Master/tlpkg/installer/install-menu-text.pl
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2022-03-05 22:22:47 +0000
committerKarl Berry <karl@freefriends.org>2022-03-05 22:22:47 +0000
commit91fab1b3c6f690976f73fd5caa1f230966391211 (patch)
tree016e2d866429ae8711b8294275fd7b07b439cf11 /Master/tlpkg/installer/install-menu-text.pl
parent242c481fc3475a526d0c0f932ee735a497a4d963 (diff)
wording
git-svn-id: svn://tug.org/texlive/trunk@62459 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/installer/install-menu-text.pl')
-rw-r--r--Master/tlpkg/installer/install-menu-text.pl33
1 files changed, 19 insertions, 14 deletions
diff --git a/Master/tlpkg/installer/install-menu-text.pl b/Master/tlpkg/installer/install-menu-text.pl
index 0c0b1a57199..15385563611 100644
--- a/Master/tlpkg/installer/install-menu-text.pl
+++ b/Master/tlpkg/installer/install-menu-text.pl
@@ -1,15 +1,15 @@
#!/usr/bin/env perl
# $Id$
-# install-menu-txt.pl
#
-# Copyright 2007-2021 Norbert Preining, Karl Berry
+# Copyright 2007-2022 Norbert Preining, Karl Berry
# Copyright 2007-2008 Reinhard Kotucha
# This file is licensed under the GNU General Public License version 2
# or any later version.
#
# This file implements the text based menu system for the TeX Live installer.
-use vars qw(@::end_install_hook $::opt_no_cls);
+use vars qw(@::end_install_hook
+ $::opt_no_cls $::opt_select_repository $::run_menu);
our %vars;
our $opt_in_place;
@@ -239,7 +239,7 @@ sub run_menu_text {
warn "\n";
warn "Please select a different mirror! See info above.\n";
print STDERR "Press Enter to exit... ";
- $ans = readline (*STDIN);
+ my $ans = readline (*STDIN);
exit (1);
}
@@ -719,7 +719,7 @@ sub help_menu {
'R' => \&main_menu,
'Q' => \&quit
);
- my $installer_help="$installerdir/tlpkg/installer/install-tl.html";
+ my $installer_help = "notused/tlpkg/installer/install-tl.html";
clear_screen;
@@ -963,15 +963,20 @@ sub quit {
sub do_install {
my $reserve = 100;
- if ($vars{'free_size'} > 0 && $vars{'free_size'} + $reserve < $vars{'total_size'}) {
- print <<"EOF";
-****************** WARNING ***********************
-The required disk space of $vars{'total_size'}M exceeds the available of $vars{'free_size'}M.
-Either choose a differernt installation location or reduce the amount
-to be installed.
-
-Press enter to continue!
-**************************************************
+ if ($vars{'free_size'} > 0
+ && $vars{'free_size'} + $reserve < $vars{'total_size'}) {
+ print STDERR <<"EOF";
+*** WARNING ************************************************
+The installation requires $vars{'total_size'}M of disk space
+but only $vars{'free_size'}M is available.
+
+You probably want to clean up the destination filesystem
+before continuing here, or else quit (CTRL-C)
+and choose a different installation location,
+or reduce what gets installed.
+
+Press Enter to continue the installation anyway.
+************************************************
EOF
my $ans = readline (*STDIN);
main_menu();