diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/install/steps_gtk.pm | 6 | ||||
| -rw-r--r-- | perl-install/install/steps_interactive.pm | 4 |
2 files changed, 5 insertions, 5 deletions
diff --git a/perl-install/install/steps_gtk.pm b/perl-install/install/steps_gtk.pm index 7affd8f24..8b836ecd6 100644 --- a/perl-install/install/steps_gtk.pm +++ b/perl-install/install/steps_gtk.pm @@ -715,7 +715,7 @@ sub ask_deselect_media__copy_on_disk { my ($o, $hdlists, $o_copy_rpms_on_disk) = @_; my @names = uniq(map { $_->{name} } @$hdlists); - my %selection = map { $_->{name} => $_->{selected} } @$hdlists; + my %selection = map { $_->{name} => !$_->{ignore} } @$hdlists; if (@names > 1 || $o_copy_rpms_on_disk) { my $w = ugtk2->new(N("Media Selection")); @@ -758,8 +758,8 @@ It will then continue from the hard drive and the packages will remain available ); $w->main; } - $_->{selected} = $selection{$_->{name}} foreach @$hdlists; - log::l("keeping media " . join ',', map { $_->{rpmsdir} } grep { $_->{selected} } @$hdlists); + !$_->{ignore} = $selection{$_->{name}} foreach @$hdlists; + log::l("keeping media " . join ',', map { $_->{rpmsdir} } grep { !$_->{ignore} } @$hdlists); } 1; diff --git a/perl-install/install/steps_interactive.pm b/perl-install/install/steps_interactive.pm index a956419a7..03d89d033 100644 --- a/perl-install/install/steps_interactive.pm +++ b/perl-install/install/steps_interactive.pm @@ -342,8 +342,8 @@ It will then continue from the hard drive and the packages will remain available { type => 'bool', text => N("Copy whole CDs"), val => $o_copy_rpms_on_disk }, ), ]); - $_->{selected} = $selection{$_->{name}} foreach @$hdlists; - log::l("keeping media " . join ',', map { $_->{rpmsdir} } grep { $_->{selected} } @$hdlists); + !$_->{ignore} = $selection{$_->{name}} foreach @$hdlists; + log::l("keeping media " . join ',', map { $_->{rpmsdir} } grep { !$_->{ignore} } @$hdlists); } sub while_suspending_time { |