diff options
author | Olivier Blin <oblin@mandriva.org> | 2004-07-05 08:24:45 +0000 |
---|---|---|
committer | Olivier Blin <oblin@mandriva.org> | 2004-07-05 08:24:45 +0000 |
commit | 3d923d1ea40866d2c38bf709ddea3e1d7f2a6e87 (patch) | |
tree | c5f6a46c2891e7b09b1db97f47069a480f17bd07 /perl-install | |
parent | ada248a83419e480f71b75ebf81fde77a37f5f60 (diff) | |
download | drakx-backup-do-not-use-3d923d1ea40866d2c38bf709ddea3e1d7f2a6e87.tar drakx-backup-do-not-use-3d923d1ea40866d2c38bf709ddea3e1d7f2a6e87.tar.gz drakx-backup-do-not-use-3d923d1ea40866d2c38bf709ddea3e1d7f2a6e87.tar.bz2 drakx-backup-do-not-use-3d923d1ea40866d2c38bf709ddea3e1d7f2a6e87.tar.xz drakx-backup-do-not-use-3d923d1ea40866d2c38bf709ddea3e1d7f2a6e87.zip |
perl_checker compliance
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 = $_ } |