summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install2.pm2
-rw-r--r--perl-install/install_steps_interactive.pm3
2 files changed, 3 insertions, 2 deletions
diff --git a/perl-install/install2.pm b/perl-install/install2.pm
index ab28caad7..4fccfd454 100644
--- a/perl-install/install2.pm
+++ b/perl-install/install2.pm
@@ -386,7 +386,7 @@ sub selectInstallClass {
addToBeDone {
install_any::setPackages($o); #update package list
- } 'formatPartitions';
+ } 'formatPartitions' unless $o->{steps}{doInstallStep}{done};
}
#------------------------------------------------------------------------------
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index 1cef55e77..c23fb4ab6 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -485,7 +485,8 @@ failures. Would you like to create a bootdisk for your system?"), !$o->{mkbootdi
$o->{mkbootdisk} = $o->ask_from_list('',
_("Choose the floppy drive you want to use to make the bootdisk"),
- \@l, $o->{mkbootdisk});
+ [ @l, "Cancel" ], $o->{mkbootdisk});
+ return if $o->{mkbootdisk} eq "Cancel";
}
$o->ask_warn('', _("Insert a floppy in drive %s", $o->{mkbootdisk}));