diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/install_any.pm | 2 | ||||
| -rw-r--r-- | perl-install/install_steps.pm | 2 |
2 files changed, 3 insertions, 1 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm index 37b1f5cda..c7ea7ebc4 100644 --- a/perl-install/install_any.pm +++ b/perl-install/install_any.pm @@ -1632,6 +1632,8 @@ sub migrate_device_names { sub use_root_part { my ($all_hds, $part, $o_in) = @_; + return if $::local_install; + my $migrate_device_names; { my $handle = any::inspect($part, $::prefix) or internal_error(); diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm index 45ce83191..ce734461b 100644 --- a/perl-install/install_steps.pm +++ b/perl-install/install_steps.pm @@ -169,7 +169,7 @@ sub selectInstallClass { if ($o->{partitioning}{use_existing_root} || $o->{isUpgrade}) { # 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}, $o->{prefix})) || die)->{part}; - $o->{migrate_device_names} = install_any::use_root_part($o->{all_hds}, $p) if !$::local_install; + $o->{migrate_device_names} = install_any::use_root_part($o->{all_hds}, $p); } } |