summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/draknet2
-rwxr-xr-xperl-install/standalone/net_monitor4
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";