From 1dbf2fc9d6fc77fdea3314fc92bb1592447b2511 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Mon, 7 Feb 2005 09:03:04 +0000 Subject: fix setting @hdlists when deselectionAllowed is false --- perl-install/pkgs.pm | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) (limited to 'perl-install') 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! -- cgit v1.2.1