From c0b05f8301aa8b14a5006caeea3c1d29fc91cab0 Mon Sep 17 00:00:00 2001
From: Florent Villard <warly@mandriva.com>
Date: Wed, 27 Oct 2004 16:20:30 +0000
Subject: add more log into find_root_part

---
 perl-install/install_any.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'perl-install')

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;
-- 
cgit v1.2.1