summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install/steps_gtk.pm2
-rw-r--r--perl-install/install/steps_interactive.pm2
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);
}