summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-05-27 15:59:28 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-05-27 15:59:28 +0000
commit812707e9eba654f8733cc4fc26be633553efc42f (patch)
tree1c82c84a8606d19e93795307a06d74b477ee4742 /perl-install
parent1b7cf82a640b68348450a4fdb4135dabfe71fe6b (diff)
downloaddrakx-812707e9eba654f8733cc4fc26be633553efc42f.tar
drakx-812707e9eba654f8733cc4fc26be633553efc42f.tar.gz
drakx-812707e9eba654f8733cc4fc26be633553efc42f.tar.bz2
drakx-812707e9eba654f8733cc4fc26be633553efc42f.tar.xz
drakx-812707e9eba654f8733cc4fc26be633553efc42f.zip
(getNet) ignore loopback device
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/detect_devices.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/detect_devices.pm b/perl-install/detect_devices.pm
index 00c594adf..0016e077b 100644
--- a/perl-install/detect_devices.pm
+++ b/perl-install/detect_devices.pm
@@ -493,7 +493,7 @@ sub getECI() {
grep { member(sprintf("%04x%04x%04x%04x", $_->{vendor}, $_->{id}, $_->{subvendor}, $_->{subid}), @ids) } usb_probe();
}
-sub getNet() { c::get_netdevices() }
+sub getNet() { grep { $_ ne 'lo' } c::get_netdevices() }
#sub getISDN() {
# mapgrep(sub {member (($_[0] =~ /\s*(\w*):/), @netdevices), $1 }, split(/\n/, cat_("/proc/net/dev")));