From 6e2f0bf3a95c6bdf7714a8b6c8d07f838c766517 Mon Sep 17 00:00:00 2001 From: Rafael Garcia-Suarez Date: Tue, 7 Sep 2004 08:17:17 +0000 Subject: Allow supplementary media for upgrades --- perl-install/install_any.pm | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) (limited to 'perl-install/install_any.pm') diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm index cbfd20b20..df88349df 100644 --- a/perl-install/install_any.pm +++ b/perl-install/install_any.pm @@ -400,9 +400,7 @@ sub selectSupplMedia { my ($o, $suppl_method) = @_; #- ask whether there are supplementary media my $prev_asked_medium = $asked_medium; - if ($suppl_method && !$o->{isUpgrade} - && (my $suppl = ask_if_suppl_media($o)) ne 'None') - { + if ($suppl_method && (my $suppl = ask_if_suppl_media($o)) ne 'None') { #- translate to method name $suppl_method = { 'CD-ROM' => 'cdrom', -- cgit v1.2.1