From 5e8ab79263d7731b4f9fff88e466755ecf569950 Mon Sep 17 00:00:00 2001
From: damien <damien@mandriva.com>
Date: Sun, 8 Apr 2001 04:26:56 +0000
Subject: typo

---
 perl-install/standalone/draknet     | 2 +-
 perl-install/standalone/net_monitor | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

(limited to 'perl-install')

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";
-- 
cgit v1.2.1