diff options
Diffstat (limited to 'perl-install')
-rw-r--r-- | perl-install/install_any.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm index aa4eecfca..e08732eef 100644 --- a/perl-install/install_any.pm +++ b/perl-install/install_any.pm @@ -1064,14 +1064,14 @@ sub find_root_parts { 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 $oem = cat_($oem_file); 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"); + log::l("find_root_parts found $_->{device}: $s ($t) file $oem_file"); { release => $t, real_release => $s, part => $_ }; } else { () } } @$fstab; |