diff options
| author | damien <damien@mandriva.com> | 2001-04-08 04:26:56 +0000 |
|---|---|---|
| committer | damien <damien@mandriva.com> | 2001-04-08 04:26:56 +0000 |
| commit | 5e8ab79263d7731b4f9fff88e466755ecf569950 (patch) | |
| tree | e1a783c76e8912b94c1d98f1baf3dc37c913af5c /perl-install/standalone/net_monitor | |
| parent | fd797552b2a0ecc1b999e0b4d7dadade63aece5a (diff) | |
| download | drakx-backup-do-not-use-5e8ab79263d7731b4f9fff88e466755ecf569950.tar drakx-backup-do-not-use-5e8ab79263d7731b4f9fff88e466755ecf569950.tar.gz drakx-backup-do-not-use-5e8ab79263d7731b4f9fff88e466755ecf569950.tar.bz2 drakx-backup-do-not-use-5e8ab79263d7731b4f9fff88e466755ecf569950.tar.xz drakx-backup-do-not-use-5e8ab79263d7731b4f9fff88e466755ecf569950.zip | |
typo
Diffstat (limited to 'perl-install/standalone/net_monitor')
| -rwxr-xr-x | perl-install/standalone/net_monitor | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/standalone/net_monitor b/perl-install/standalone/net_monitor index 393ec532b..b37865107 100755 --- a/perl-install/standalone/net_monitor +++ b/perl-install/standalone/net_monitor @@ -181,7 +181,6 @@ sub update { foreach(@intfs) { my $intf = $_; if(!member($intf,@interfaces)) { - push (@interfaces, $intf); $default_intf = $intf; $monitor->{$intf}{initialr} = $monitor->{$intf}{val}->[0]; $monitor->{$intf}{initialt} = $monitor->{$intf}{val}->[8]; @@ -218,9 +217,9 @@ sub update { my $intf = $_; if(!member($intf,@intfs)) { $notebook->remove_page($monitor->{$intf}{page}); - @interfaces = map { $_ if($_ ne $intf)} @interfaces; } } + @interfaces = @intfs; my $netc={}; if(netconnect::connected('', $netc) == !$isconnected) { $isconnected = $isconnected ? 0 : 1; @@ -234,6 +233,7 @@ sub update { sub draw_monitor { my ($o) = @_; + defined $o->{darea} or return; $o->{pixmap_db}->draw_rectangle ($o->{darea}->style->black_gc, 1, 0, 0, 300, 150); # my @c = map { $step+=2; ($step, $_); } @{$o->{stack_r}}; # print "\n##\n" . Data::Dumper->Dump([@c],['$c']) . "\n##\n"; |