diff options
author | Florent Villard <warly@mandriva.com> | 2004-10-27 16:20:30 +0000 |
---|---|---|
committer | Florent Villard <warly@mandriva.com> | 2004-10-27 16:20:30 +0000 |
commit | c0b05f8301aa8b14a5006caeea3c1d29fc91cab0 (patch) | |
tree | fbc3b8acb7248bcc24c546c36d392a19cdb7596a /perl-install | |
parent | 6232ba7d7aa0ffb1a0f75cbaf559430f9671685a (diff) | |
download | drakx-c0b05f8301aa8b14a5006caeea3c1d29fc91cab0.tar drakx-c0b05f8301aa8b14a5006caeea3c1d29fc91cab0.tar.gz drakx-c0b05f8301aa8b14a5006caeea3c1d29fc91cab0.tar.bz2 drakx-c0b05f8301aa8b14a5006caeea3c1d29fc91cab0.tar.xz drakx-c0b05f8301aa8b14a5006caeea3c1d29fc91cab0.zip |
add more log into find_root_part
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; |