summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2005-04-01 17:35:13 +0000
committerRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2005-04-01 17:35:13 +0000
commit5ac2cea3ab124a057a6e8678658a6b11aa91ac89 (patch)
tree50144183af8bdb5e887c2d6b96da38d37fe71b53 /perl-install
parent35ab65094fb40ba7e99904770b5e3ed277c5f7f9 (diff)
downloaddrakx-5ac2cea3ab124a057a6e8678658a6b11aa91ac89.tar
drakx-5ac2cea3ab124a057a6e8678658a6b11aa91ac89.tar.gz
drakx-5ac2cea3ab124a057a6e8678658a6b11aa91ac89.tar.bz2
drakx-5ac2cea3ab124a057a6e8678658a6b11aa91ac89.tar.xz
drakx-5ac2cea3ab124a057a6e8678658a6b11aa91ac89.zip
Actually remove multiple Mini-CD media for deselection
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_steps_gtk.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm
index 411d0ceaf..73fdf1280 100644
--- a/perl-install/install_steps_gtk.pm
+++ b/perl-install/install_steps_gtk.pm
@@ -654,8 +654,8 @@ sub deselectFoundMedia {
push @{$corresp[$cdlist{$cd}[0]]}, $i;
}
if ($cd) {
- $cdlist{$1} ||= [];
- push @{$cdlist{$1}}, $i;
+ $cdlist{$cd} ||= [];
+ push @{$cdlist{$cd}}, $i;
}
$totalsize >= 0 and $totalsize += $mediumsize->{$_->[0]};
++$i;