texlive[62432] Master/tlpkg/installer/install-menu-text.pl: Prohibit

[commits+preining at tug.org]

Revision: 62432
          http://tug.org/svn/texlive?view=revision&revision=62432
Author:   preining
Date:     2022-03-05 15:18:48 +0100 (Sat, 05 Mar 2022)
Log Message:
-----------
Prohibit installation into insufficient disk space dir

Modified Paths:
--------------
    trunk/Master/tlpkg/installer/install-menu-text.pl

Modified: trunk/Master/tlpkg/installer/install-menu-text.pl
===================================================================
--- trunk/Master/tlpkg/installer/install-menu-text.pl	2022-03-05 14:03:21 UTC (rev 62431)
+++ trunk/Master/tlpkg/installer/install-menu-text.pl	2022-03-05 14:18:48 UTC (rev 62432)
@@ -962,7 +962,22 @@
 }
 
 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 {