From dbaf8aaf7216f72d4bccbab0c6aa643a581547ab Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Mon, 23 Mar 2009 16:16:18 +0000 Subject: (ask_deselect_media__copy_on_disk) more adjustments for ->{selected} => ->{ignore} switch --- perl-install/install/steps_interactive.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install/install/steps_interactive.pm') 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 { -- cgit v1.2.1