summaryrefslogtreecommitdiff
path: root/Master/tlpkg
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2022-03-05 14:18:48 +0000
committerNorbert Preining <preining@logic.at>2022-03-05 14:18:48 +0000
commit3d5ce47a53e8908ac7f3a94494fd06ffa4e27d14 (patch)
tree22d728c2f05cb67446d8fd83394c4855b8cb1261 /Master/tlpkg
parent3f56a2387224b352fe370d8ec94ca49aa1d3d937 (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')
-rw-r--r--Master/tlpkg/installer/install-menu-text.pl17
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 {