diff options
| -rw-r--r-- | perl-install/install_any.pm | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm index 1348fc5dc..aa4eecfca 100644 --- a/perl-install/install_any.pm +++ b/perl-install/install_any.pm @@ -1061,8 +1061,18 @@ sub find_root_parts { if ($s) { chomp($s); $s =~ s/\s+for\s+\S+//; + my $oem_file = "$handle->{dir}/etc/sysconfig/oem"; + my $t; + if (-f $oem_file) { + my $oem = cat_("$handle->{dir}/etc/sysconfig/oem") if -f "$handle->{dir}/etc/sysconfig/oem"; + my ($company) = $oem =~ /company=(.*)/i; + my ($system) = $oem =~ /system=(.*)/i; + my ($product) = $oem =~ /product=(.*)/i; + $t = "$company $system $product" + } + $t ||= $s; log::l("find_root_parts found $_->{device}: $s"); - { release => $s, part => $_ }; + { release => $t, real_release => $s, part => $_ }; } else { () } } @$fstab; } |