diff options
Diffstat (limited to 'perl-install/install/any.pm')
| -rw-r--r-- | perl-install/install/any.pm | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/perl-install/install/any.pm b/perl-install/install/any.pm index 7952855cb..36e4da577 100644 --- a/perl-install/install/any.pm +++ b/perl-install/install/any.pm @@ -448,6 +448,19 @@ sub enable_nonfree_media { $medium->{temp_enabled} = 1; } +=item enable_core_32bit_media($medium) + +Enable a disabled Core 32bit medium. + +=cut + +sub enable_core_32bit_media { + my ($medium) = @_; + return if $medium->{name} !~ /Core/ || $medium->{name} !~ /32bit/ || !$medium->{ignore}; + log::l("preselecting $medium->{name}"); + $medium->{temp_enabled} = 1; +} + =item media_screen($o) Lists available media with their status (enabled/disabled). @@ -493,6 +506,7 @@ sub media_screen { my $parent = $distribconf->getvalue($distribconf->getvalue($medium_path, 'updates_for'), 'name'); my $non_regular_medium = intersection(\@media_types, [ qw(backports debug source testing) ]); enable_nonfree_media($medium) if $nonfree_is_needed && !$non_regular_medium; + enable_core_32bit_media($medium) if arch() eq 'x86_64' && uefi_type() eq 'ia32' && !$non_regular_medium; $non_regular_medium ? () : +{ val => \$medium->{temp_enabled}, type => 'bool', text => $name, |