summaryrefslogtreecommitdiffstats
path: root/perl-install/install/any.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/install/any.pm')
-rw-r--r--perl-install/install/any.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/install/any.pm b/perl-install/install/any.pm
index 6a6bb3d4c..3f47b3c82 100644
--- a/perl-install/install/any.pm
+++ b/perl-install/install/any.pm
@@ -332,7 +332,7 @@ sub selectSupplMedia {
$phys_medium->{$field} = $val;
#- try using media_info/hdlist.cz
- my $medium_id = int(@{$o->{packages}{mediums}});
+ my $medium_id = int(@{$o->{packages}{media}});
eval { install::media::get_standalone_medium($o, $phys_medium, $o->{packages}, { name => "Supplementary media $medium_id" }) };
if (!$@) {
log::l("read suppl hdlist (via $method)");