summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-09-06 23:13:20 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-09-06 23:13:20 +0000
commitfca41a6e89e8c4df53ba49147e569441b753a34a (patch)
tree2f46738a83f7545f9dd45f69fb5cc2d00dc0fd7b /perl-install
parentb8fa764d866874104c7f2f986804966c0328faf5 (diff)
downloaddrakx-fca41a6e89e8c4df53ba49147e569441b753a34a.tar
drakx-fca41a6e89e8c4df53ba49147e569441b753a34a.tar.gz
drakx-fca41a6e89e8c4df53ba49147e569441b753a34a.tar.bz2
drakx-fca41a6e89e8c4df53ba49147e569441b753a34a.tar.xz
drakx-fca41a6e89e8c4df53ba49147e569441b753a34a.zip
no_comment
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}));