diff options
Diffstat (limited to 'perl-install')
| -rwxr-xr-x | perl-install/standalone/draknet | 2 | ||||
| -rwxr-xr-x | perl-install/standalone/net_monitor | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/standalone/draknet b/perl-install/standalone/draknet index 96574c04d..9df97ae3a 100755 --- a/perl-install/standalone/draknet +++ b/perl-install/standalone/draknet @@ -443,7 +443,7 @@ sub configure_lan { $window->set_modal(1); $window->show_all(); - $intf->{"eth$_"}{BOOTPROTO} eq dhcp or $infos[8]->hide; + $intf->{"eth$_"}{BOOTPROTO} eq "dhcp" or $infos[8]->hide; $window->set_position('center_always'); Gtk->main; } 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"; |