diff options
| -rw-r--r-- | perl-install/install_steps_interactive.pm | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm index d5dc7563f..b174ac857 100644 --- a/perl-install/install_steps_interactive.pm +++ b/perl-install/install_steps_interactive.pm @@ -640,6 +640,12 @@ sub chooseGroups { }; while (1) { + if ($available_size < 140) { + # too small to choose anything. Defaulting to no group chosen + $val{$_} = 0 foreach %val; + last; + } + $o->reallyChooseGroups($size_to_display, $individual, \%val) or return; last if pkgs::correctSize($size / sqr(1024)) < $available_size; |