diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/install/steps_gtk.pm | 2 | ||||
| -rw-r--r-- | perl-install/install/steps_interactive.pm | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/install/steps_gtk.pm b/perl-install/install/steps_gtk.pm index 8b836ecd6..764808da0 100644 --- a/perl-install/install/steps_gtk.pm +++ b/perl-install/install/steps_gtk.pm @@ -758,7 +758,7 @@ It will then continue from the hard drive and the packages will remain available ); $w->main; } - !$_->{ignore} = $selection{$_->{name}} foreach @$hdlists; + $_->{ignore} = !$selection{$_->{name}} foreach @$hdlists; log::l("keeping media " . join ',', map { $_->{rpmsdir} } grep { !$_->{ignore} } @$hdlists); } diff --git a/perl-install/install/steps_interactive.pm b/perl-install/install/steps_interactive.pm index 03d89d033..d43753420 100644 --- a/perl-install/install/steps_interactive.pm +++ b/perl-install/install/steps_interactive.pm @@ -342,7 +342,7 @@ 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 }, ), ]); - !$_->{ignore} = $selection{$_->{name}} foreach @$hdlists; + $_->{ignore} = !$selection{$_->{name}} foreach @$hdlists; log::l("keeping media " . join ',', map { $_->{rpmsdir} } grep { !$_->{ignore} } @$hdlists); } |