diff options
| -rw-r--r-- | perl-install/install2.pm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/perl-install/install2.pm b/perl-install/install2.pm index 49f6b6b10..d66c58f1d 100644 --- a/perl-install/install2.pm +++ b/perl-install/install2.pm @@ -142,7 +142,10 @@ sub selectInstallClass { installStepsCall($o, $auto, 'selectInstallClass', $clicked); if ($o->{isUpgrade}) { - $o->{keepConfiguration} and @{$o->{orderedSteps}} = grep { !/selectMouse|selectKeyboard|miscellaneous|setRootPassword|addUser|configureNetwork|installUpdates|summary|configureServices|configureX/ } @{$o->{orderedSteps}}; + @{$o->{orderedSteps}} = uniq('doPartitionDisks', 'formatPartitions', @{$o->{orderedSteps}}); + + @{$o->{orderedSteps}} = difference2($o->{orderedSteps}, [ qw(selectMouse selectKeyboard miscellaneous formatPartitions setRootPassword addUser configureNetwork installUpdates summary configureServices configureX) ]) + if $o->{keepConfiguration}; } } |