summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-05-27 07:25:06 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-05-27 07:25:06 +0000
commit176b066d32a17cac382c33bc8f90a9231dcf31e3 (patch)
treef39fa3446f1054cc67d75591e98651e1c4e6b13e /perl-install
parent9ede3ec90dd0459b12429aaa775cfa0ed2706f39 (diff)
downloaddrakx-176b066d32a17cac382c33bc8f90a9231dcf31e3.tar
drakx-176b066d32a17cac382c33bc8f90a9231dcf31e3.tar.gz
drakx-176b066d32a17cac382c33bc8f90a9231dcf31e3.tar.bz2
drakx-176b066d32a17cac382c33bc8f90a9231dcf31e3.tar.xz
drakx-176b066d32a17cac382c33bc8f90a9231dcf31e3.zip
(get_val) reuse c::get_netdevices() and thus skip bogus sit0
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/net_monitor10
1 files changed, 7 insertions, 3 deletions
diff --git a/perl-install/standalone/net_monitor b/perl-install/standalone/net_monitor
index 7e323fb19..3863e0197 100755
--- a/perl-install/standalone/net_monitor
+++ b/perl-install/standalone/net_monitor
@@ -25,6 +25,7 @@ use lib qw(/usr/lib/libDrakX);
use strict;
use standalone; #- warning, standalone must be loaded very first, for 'explanations'
+use c;
use interactive;
use ugtk2 qw(:helpers :wrappers :create);
use common;
@@ -281,12 +282,15 @@ sub get_val() {
$a =~ s/^.*?\n.*?\n//;
$a =~ s/^\s*lo:.*?\n//;
my @line = split(/\n/, $a);
+ my @interfaces = c::get_netdevices();
map {
s/\s*(\w*)://;
my $intf = $1;
- $monitor->{$intf}{val} = [split()];
- $monitor->{$intf}{intf} = $intf;
- $intf;
+ if (member($intf, @interfaces)) {
+ $monitor->{$intf}{val} = [ split() ];
+ $monitor->{$intf}{intf} = $intf;
+ $intf;
+ } else { () }
} @line;
}