diff options
Diffstat (limited to 'perl-install/detect_devices.pm')
| -rw-r--r-- | perl-install/detect_devices.pm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm index be6ba24d6..dc9f17de2 100644 --- a/perl-install/detect_devices.pm +++ b/perl-install/detect_devices.pm @@ -14,7 +14,7 @@ use c; #-##################################################################################### #- Globals #-##################################################################################### -my @netdevices = map { my $l = $_; map { "$l$_" } (0..3) } (qw(eth tr fddi), $::isStandalone ? () : 'plip'); +my @netdevices = map { my $l = $_; map { "$l$_" } (0..3) } qw(eth tr fddi plip); my %serialprobe = (); my $usb_interface = undef; @@ -167,7 +167,8 @@ sub getDAC960() { } sub getNet() { - grep { hasNetDevice($_) } @netdevices; + my @nets = grep { hasNetDevice($_) } @netdevices; + $::isStandalone ? grep { !/plip/ } @nets : @nets; } sub hasNet() { goto &getNet } |