From c3dd9700da6ed655948e4e7d3d1966f14db4047b Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Sun, 6 Mar 2022 22:27:37 +0000 Subject: return to menu when not enough space, not continue installation git-svn-id: svn://tug.org/texlive/trunk@62484 c570f23f-e606-0410-a88d-b1316a301751 --- Master/tlpkg/installer/install-menu-text.pl | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) (limited to 'Master/tlpkg') 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(); -- cgit v1.2.3