diff options
Diffstat (limited to 'perl-install')
| -rwxr-xr-x | perl-install/standalone/net_monitor | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/perl-install/standalone/net_monitor b/perl-install/standalone/net_monitor index e4d494345..be383ba63 100755 --- a/perl-install/standalone/net_monitor +++ b/perl-install/standalone/net_monitor @@ -130,7 +130,7 @@ $gca->set_foreground($colora); $statusbar->push(1, N("Wait please, testing your connection...")); $window1->{rwindow}->show_all; -my $time_tag = Glib::Timeout->add(1000, \&rescan); +Glib::Timeout->add(1000, \&rescan); my $time_tag2 = Glib::Timeout->add(1000, \&update); update(); @@ -404,7 +404,6 @@ sub update() { $darea->{$intf}->signal_connect(motion_notify_event => sub { my (undef, $e) = @_; my $x = $e->x - 50; - my $y = $e->y; my $received = $x >= 0 ? $monitor->{$intf}{stack_r}[$x] : 0; my $transmitted = $x >= 0 ? $monitor->{$intf}{stack_t}[$x] : 0; $measure_r->set_label(formatXiB($received)); @@ -492,7 +491,7 @@ sub draw_monitor { $step++; } $step = $left_border - 1; - ($av1, $av2) = undef; + $av1 = $av2 = undef; foreach (@{$o->{stack_ra}}) { if ($_ != -1) { if (!defined $av1) { $av1 = $_ } else { defined $av2 or $av2 = $_ } |