From e9a8e8dbc89913fb930f31e4c011aa016111314d Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Wed, 5 Mar 2003 13:39:56 +0000
Subject: prevent warning when using diagnostics pragma (easier debugging)

---
 perl-install/standalone/harddrake2 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'perl-install/standalone/harddrake2')

diff --git a/perl-install/standalone/harddrake2 b/perl-install/standalone/harddrake2
index 4437fa5e6..6a21721f9 100755
--- a/perl-install/standalone/harddrake2
+++ b/perl-install/standalone/harddrake2
@@ -251,7 +251,7 @@ foreach (@harddrake::data::tree) {
     # Fill the graphic tree with a "tree leaf" widget per device
     foreach (@devices) {
         # we really should test for $title there:
-        if ($_->{bus} eq "PCI") {
+        if ($_->{bus} && $_->{bus} eq "PCI") {
             my $i = $_;
             $_->{bus_id} = join ':', map { if_($i->{$_} ne "65535",  sprintf("%lx", $i->{$_})) } qw(vendor id subvendor subid);
             $_->{bus_location} = join ':', map { sprintf("%lx", $i->{$_}) } qw(pci_bus pci_device pci_function);
@@ -264,7 +264,7 @@ foreach (@harddrake::data::tree) {
             ($_->{Vendor}, $_->{description}) = split(/\|/, $val->{DESCRIPTION});
         }
         # EIDE detection incoherency:
-        if ($_->{bus} eq 'ide') {
+        if ($_->{bus} && $_->{bus} eq 'ide') {
             $_->{channel} = $_->{channel} ? N("secondary") : N("primary");
             delete $_->{info};
         } elsif ($_->{bus} && $_->{bus} !~ /USB|PCI/) {
-- 
cgit v1.2.1