summaryrefslogtreecommitdiff
path: root/Master/tlpkg/installer/install-menu-text.pl
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2022-03-06 22:27:37 +0000
committerKarl Berry <karl@freefriends.org>2022-03-06 22:27:37 +0000
commitc3dd9700da6ed655948e4e7d3d1966f14db4047b (patch)
treeaf53fcf25f66aea49af0c15a7c8ffc2c55468c3c /Master/tlpkg/installer/install-menu-text.pl
parent872fa2f5153896d34f4581688904246c7b299fd7 (diff)
return to menu when not enough space, not continue installation
git-svn-id: svn://tug.org/texlive/trunk@62484 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/installer/install-menu-text.pl')
-rw-r--r--Master/tlpkg/installer/install-menu-text.pl11
1 files changed, 5 insertions, 6 deletions
diff --git a/Master/tlpkg/installer/install-menu-text.pl b/Master/tlpkg/installer/install-menu-text.pl
index 15385563611..166a8776391 100644
--- a/Master/tlpkg/installer/install-menu-text.pl
+++ b/Master/tlpkg/installer/install-menu-text.pl
@@ -966,17 +966,16 @@ sub do_install {
if ($vars{'free_size'} > 0
&& $vars{'free_size'} + $reserve < $vars{'total_size'}) {
print STDERR <<"EOF";
-*** WARNING ************************************************
+*** 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,
+You probably want to either clean up the destination filesystem,
+or choose a different installation location,
or reduce what gets installed.
-Press Enter to continue the installation anyway.
-************************************************
+Press Enter to return to the menu.
+***************************************************************
EOF
my $ans = readline (*STDIN);
main_menu();