diff options
| -rw-r--r-- | perl-install/network/ethernet.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/network/ethernet.pm b/perl-install/network/ethernet.pm index 84d828a41..0c23b66a9 100644 --- a/perl-install/network/ethernet.pm +++ b/perl-install/network/ethernet.pm @@ -120,9 +120,9 @@ sub update_iftab() { # automatic net aliases configuration sub configure_eth_aliases { my ($modules_conf) = @_; - my @pcmcia = detect_devices::pcmcia_probe(); + my @pcmcia_interfaces = map { $_->{device} } detect_devices::pcmcia_probe(); foreach my $card (get_eth_cards($modules_conf)) { - if (any { $_->{device} eq $card->[0] } @pcmcia) { + if (member($card->[0], @pcmcia_interfaces)) { #- do not write aliases for pcmcia cards, or cardmgr will not be loaded $modules_conf->remove_alias($card->[0]); } else { |