diff options
| author | Karl Berry <karl@freefriends.org> | 2022-03-06 22:27:37 +0000 |
|---|---|---|
| committer | Karl Berry <karl@freefriends.org> | 2022-03-06 22:27:37 +0000 |
| commit | c3dd9700da6ed655948e4e7d3d1966f14db4047b (patch) | |
| tree | af53fcf25f66aea49af0c15a7c8ffc2c55468c3c /Master/tlpkg | |
| parent | 872fa2f5153896d34f4581688904246c7b299fd7 (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')
| -rw-r--r-- | Master/tlpkg/installer/install-menu-text.pl | 11 |
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(); |