From ebbbdd17a339b6455a34f50f95510ef91959c940 Mon Sep 17 00:00:00 2001 From: Damien Chaumette Date: Tue, 4 May 2004 13:28:37 +0000 Subject: perl_checker fixes --- perl-install/network/ethernet.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'perl-install') diff --git a/perl-install/network/ethernet.pm b/perl-install/network/ethernet.pm index baf52d82d..3d7888ca7 100644 --- a/perl-install/network/ethernet.pm +++ b/perl-install/network/ethernet.pm @@ -61,9 +61,9 @@ sub get_eth_cards() { } else { ($description) = (mapIntfToDevice($interface))[0]->{description}; } - if (!$description and my $driver = $a || $saved_driver) { - my @cards = grep { $_->{driver} eq $driver } detect_devices::probeall(); - $description = $cards[0]->{description} if $#cards == 0; + if (!$description) { + my @cards = grep { $_->{driver} eq ($a || $saved_driver) } detect_devices::probeall(); + $description = $cards[0]{description} if $#cards == 0; } $a and $saved_driver = $a; # handle multiple cards managed by the same driver [ $interface, $saved_driver, if_($description, $description) ] -- cgit v1.2.1