diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/install2.pm | 6 | ||||
| -rw-r--r-- | perl-install/install_steps.pm | 4 |
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; |