summaryrefslogtreecommitdiffstats
path: root/perl-install/install/steps.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/install/steps.pm')
-rw-r--r--perl-install/install/steps.pm1
1 files changed, 1 insertions, 0 deletions
diff --git a/perl-install/install/steps.pm b/perl-install/install/steps.pm
index e669a3790..518ef8d18 100644
--- a/perl-install/install/steps.pm
+++ b/perl-install/install/steps.pm
@@ -175,6 +175,7 @@ sub selectInstallClass {
# either one root is defined (and all is ok), or we take the first one we find
my $p = fs::get::root_($o->{fstab}) || (first(install::any::find_root_parts($o->{fstab}, $::prefix)) || die)->{part};
$o->{migrate_device_names} = install::any::use_root_part($o->{all_hds}, $p);
+ $o->{previous_release} = $p if $o->{isUpgrade};
}
}