diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2003-03-05 13:39:56 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2003-03-05 13:39:56 +0000 |
| commit | e9a8e8dbc89913fb930f31e4c011aa016111314d (patch) | |
| tree | d5af9a11a434f14e1fd21f739ca367086045f0bc /perl-install/standalone | |
| parent | 54e499995b9cb2d1ec9199710fa3da1a27732754 (diff) | |
| download | drakx-backup-do-not-use-e9a8e8dbc89913fb930f31e4c011aa016111314d.tar drakx-backup-do-not-use-e9a8e8dbc89913fb930f31e4c011aa016111314d.tar.gz drakx-backup-do-not-use-e9a8e8dbc89913fb930f31e4c011aa016111314d.tar.bz2 drakx-backup-do-not-use-e9a8e8dbc89913fb930f31e4c011aa016111314d.tar.xz drakx-backup-do-not-use-e9a8e8dbc89913fb930f31e4c011aa016111314d.zip | |
prevent warning when using diagnostics pragma (easier debugging)
Diffstat (limited to 'perl-install/standalone')
| -rwxr-xr-x | perl-install/standalone/harddrake2 | 4 |
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/) { |