summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_any.pm6
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 682e5cb91..b675d057a 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -432,6 +432,7 @@ sub prep_net_suppl_media {
sub remountCD1 {
my ($o, $cdrom) = @_;
+ return if install_medium::by_id(1, $o->{packages})->method ne 'cdrom';
openCdromTray($cdrom);
$o->ask_warn('', N("Insert the CD 1 again"));
mountCdrom("/tmp/image", $cdrom);
@@ -456,7 +457,6 @@ sub selectSupplMedia {
#- configure network if needed
prep_net_suppl_media($o) if !scalar keys %{$o->{intf}} && $suppl_method !~ /^(?:cdrom|disk)/;
local $::isWizard = 0;
- my $main_method = $o->{method};
local $o->{method} = $suppl_method;
if ($suppl_method eq 'cdrom') {
(my $cdromdev) = detect_devices::cdroms();
@@ -493,9 +493,9 @@ sub selectSupplMedia {
log::l("Umounting suppl. CD, back to medium 1");
eval { fs::umount("/mnt/cdrom") };
#- re-mount CD 1 if this was a cdrom install
- $main_method eq 'cdrom' and remountCD1($o, $cdrom);
+ remountCD1($o, $cdrom);
} else {
- $main_method eq 'cdrom' and remountCD1($o, $cdrom);
+ remountCD1($o, $cdrom);
return 'error';
}
} else {