diff options
| -rw-r--r-- | perl-install/pkgs.pm | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm index cd6c33f89..934de3aab 100644 --- a/perl-install/pkgs.pm +++ b/perl-install/pkgs.pm @@ -423,9 +423,11 @@ sub psUsingHdlists { ]; $cdsuppl ? ($medium_name = ($medium_name + 1) . 's') : ++$medium_name; } - my ($finalhdlists, $copy_rpms_on_disk); - ($finalhdlists, $copy_rpms_on_disk) = $o->deselectFoundMedia(\@hdlists) if $deselectionAllowed && !defined $o_initialmedium; - @hdlists = @$finalhdlists; + my $copy_rpms_on_disk = 0; + if ($deselectionAllowed && !defined $o_initialmedium) { + (my $finalhdlists, $copy_rpms_on_disk) = $o->deselectFoundMedia(\@hdlists); + @hdlists = @$finalhdlists; + } foreach my $h (@hdlists) { #- make sure the first medium is always selected! |