From 5ac2cea3ab124a057a6e8678658a6b11aa91ac89 Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@mandriva.org>
Date: Fri, 1 Apr 2005 17:35:13 +0000
Subject: Actually remove multiple Mini-CD media for deselection

---
 perl-install/install_steps_gtk.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'perl-install')

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;
-- 
cgit v1.2.1