summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_gtk.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/install_steps_gtk.pm')
-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;