summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakconnect
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.org>2004-07-20 15:41:27 +0000
committerOlivier Blin <oblin@mandriva.org>2004-07-20 15:41:27 +0000
commit561ce2cb93d997d08de6ce8838450d85bc7a7d82 (patch)
tree75c99cc5df2d4d3d88a492b5447c06e7736e33f7 /perl-install/standalone/drakconnect
parent34eb1b8b9d424d72a737ba3c7bae0098b2415fd6 (diff)
downloaddrakx-561ce2cb93d997d08de6ce8838450d85bc7a7d82.tar
drakx-561ce2cb93d997d08de6ce8838450d85bc7a7d82.tar.gz
drakx-561ce2cb93d997d08de6ce8838450d85bc7a7d82.tar.bz2
drakx-561ce2cb93d997d08de6ce8838450d85bc7a7d82.tar.xz
drakx-561ce2cb93d997d08de6ce8838450d85bc7a7d82.zip
maxi perl_checker compliance combo
Diffstat (limited to 'perl-install/standalone/drakconnect')
-rwxr-xr-xperl-install/standalone/drakconnect10
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),