diff options
author | Norbert Preining <preining@logic.at> | 2022-03-05 14:18:48 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2022-03-05 14:18:48 +0000 |
commit | 3d5ce47a53e8908ac7f3a94494fd06ffa4e27d14 (patch) | |
tree | 22d728c2f05cb67446d8fd83394c4855b8cb1261 /Master/tlpkg/installer | |
parent | 3f56a2387224b352fe370d8ec94ca49aa1d3d937 (diff) |
Prohibit installation into insufficient disk space dir
git-svn-id: svn://tug.org/texlive/trunk@62432 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/installer')
-rw-r--r-- | Master/tlpkg/installer/install-menu-text.pl | 17 |
1 files changed, 16 insertions, 1 deletions
diff --git a/Master/tlpkg/installer/install-menu-text.pl b/Master/tlpkg/installer/install-menu-text.pl index 9f20c7ec7a4..0c0b1a57199 100644 --- a/Master/tlpkg/installer/install-menu-text.pl +++ b/Master/tlpkg/installer/install-menu-text.pl @@ -962,7 +962,22 @@ sub quit { } sub do_install { - $RETURN = $MENU_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! +************************************************** +EOF + my $ans = readline (*STDIN); + main_menu(); + } else { + $RETURN = $MENU_INSTALL; + } } sub toggle_portable { |