summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/harddrake2
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-03-05 13:39:56 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-03-05 13:39:56 +0000
commite9a8e8dbc89913fb930f31e4c011aa016111314d (patch)
treed5af9a11a434f14e1fd21f739ca367086045f0bc /perl-install/standalone/harddrake2
parent54e499995b9cb2d1ec9199710fa3da1a27732754 (diff)
downloaddrakx-e9a8e8dbc89913fb930f31e4c011aa016111314d.tar
drakx-e9a8e8dbc89913fb930f31e4c011aa016111314d.tar.gz
drakx-e9a8e8dbc89913fb930f31e4c011aa016111314d.tar.bz2
drakx-e9a8e8dbc89913fb930f31e4c011aa016111314d.tar.xz
drakx-e9a8e8dbc89913fb930f31e4c011aa016111314d.zip
prevent warning when using diagnostics pragma (easier debugging)
Diffstat (limited to 'perl-install/standalone/harddrake2')
-rwxr-xr-xperl-install/standalone/harddrake24
1 files changed, 2 insertions, 2 deletions
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/) {