From 0e270041857abf23420000c8eac6089db2c62bfa Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Mon, 5 Jul 2004 07:55:36 +0000 Subject: remove unused variable $type --- perl-install/standalone/net_monitor | 3 --- 1 file changed, 3 deletions(-) (limited to 'perl-install/standalone/net_monitor') diff --git a/perl-install/standalone/net_monitor b/perl-install/standalone/net_monitor index c31d1006a..c8a2a3b21 100755 --- a/perl-install/standalone/net_monitor +++ b/perl-install/standalone/net_monitor @@ -407,9 +407,6 @@ sub update() { my $y = $e->y; my $received = $x >= 0 ? $monitor->{$intf}{stack_r}[$x] : 0; my $transmitted = $x >= 0 ? $monitor->{$intf}{stack_t}[$x] : 0; - my $type; - $y * $echt / $height < $transmitted and $type = N("transmitted"); - ($height - $y) * $echr / $height < $received and $type = N("received"); $measure_r->set_label(formatXiB($received)); $measure_t->set_label(formatXiB($transmitted)); }); -- cgit v1.2.1