diff options
| author | Olivier Blin <oblin@mandriva.org> | 2004-07-20 15:41:27 +0000 |
|---|---|---|
| committer | Olivier Blin <oblin@mandriva.org> | 2004-07-20 15:41:27 +0000 |
| commit | 561ce2cb93d997d08de6ce8838450d85bc7a7d82 (patch) | |
| tree | 75c99cc5df2d4d3d88a492b5447c06e7736e33f7 | |
| parent | 34eb1b8b9d424d72a737ba3c7bae0098b2415fd6 (diff) | |
| download | drakx-backup-do-not-use-561ce2cb93d997d08de6ce8838450d85bc7a7d82.tar drakx-backup-do-not-use-561ce2cb93d997d08de6ce8838450d85bc7a7d82.tar.gz drakx-backup-do-not-use-561ce2cb93d997d08de6ce8838450d85bc7a7d82.tar.bz2 drakx-backup-do-not-use-561ce2cb93d997d08de6ce8838450d85bc7a7d82.tar.xz drakx-backup-do-not-use-561ce2cb93d997d08de6ce8838450d85bc7a7d82.zip | |
maxi perl_checker compliance combo
| -rwxr-xr-x | perl-install/standalone/drakconnect | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/perl-install/standalone/drakconnect b/perl-install/standalone/drakconnect index 9ca3fa585..844783d71 100755 --- a/perl-install/standalone/drakconnect +++ b/perl-install/standalone/drakconnect @@ -555,11 +555,11 @@ sub build_notebook { if ($intf->{pages}{Information}) { my ($info) = $gui->{description} ? find { $_->{description} eq $gui->{description} } detect_devices::probeall : network::ethernet::mapIntfToDevice($interface_kind); - if (is_empty_hash_ref($info) and my @intfs = grep { $interface_kind eq $_->[0] } @all_cards) { - my $driver; - if ($#intfs == 0 and $driver = $intfs[0][1] and my @cards = grep { $_->{driver} eq $driver } detect_devices::probeall()) { - $info = $cards[0] if $#cards == 0; - } + my @intfs = grep { $interface_kind eq $_->[0] } @all_cards; + if (is_empty_hash_ref($info) && @intfs == 1) { + my $driver = $intfs[0][1]; + my @cards = grep { $_->{driver} eq $driver } detect_devices::probeall(); + @cards == 1 and $info = $cards[0]; } gtkpack(gtkset_border_width($gui->{sheet}{Information} = Gtk2::VBox->new(0,10), 5), |