summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install2.pm6
-rw-r--r--perl-install/install_steps.pm4
2 files changed, 7 insertions, 3 deletions
diff --git a/perl-install/install2.pm b/perl-install/install2.pm
index 9547d08c3..0639fd6a1 100644
--- a/perl-install/install2.pm
+++ b/perl-install/install2.pm
@@ -507,8 +507,10 @@ sub main {
$o->kill_action;
/^setstep (.*)/ and $o->{step} = $1, $clicked = 1, redo MAIN;
/^theme_changed$/ and redo MAIN;
- eval { $o->errorInStep($_) } unless /^already displayed/;
- $@ and next;
+ unless (/^already displayed/) {
+ eval { $o->errorInStep($_) };
+ $@ and next;
+ }
$o->{step} = $o->{steps}{$o->{step}}{onError};
next MAIN unless $o->{steps}{$o->{step}}{reachable}; #- sanity check: avoid a step not reachable on error.
redo MAIN;
diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm
index 16835a196..8188fa87f 100644
--- a/perl-install/install_steps.pm
+++ b/perl-install/install_steps.pm
@@ -116,7 +116,9 @@ sub ask_mntpoint_s {
(fsedit::get_root($fstab) || {})->{type} = 0x83;
my %m; foreach (@$fstab) {
- my $m = $_->{mntpoint} or next;
+ my $m = $_->{mntpoint};
+
+ next unless $m && $m ne 'swap'; #- there may be a lot of swap.
$m{$m} and die _("Duplicate mount point %s", $m);
$m{$m} = 1;