summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.org>2004-07-05 08:24:45 +0000
committerOlivier Blin <oblin@mandriva.org>2004-07-05 08:24:45 +0000
commit3d923d1ea40866d2c38bf709ddea3e1d7f2a6e87 (patch)
treec5f6a46c2891e7b09b1db97f47069a480f17bd07 /perl-install
parentada248a83419e480f71b75ebf81fde77a37f5f60 (diff)
downloaddrakx-3d923d1ea40866d2c38bf709ddea3e1d7f2a6e87.tar
drakx-3d923d1ea40866d2c38bf709ddea3e1d7f2a6e87.tar.gz
drakx-3d923d1ea40866d2c38bf709ddea3e1d7f2a6e87.tar.bz2
drakx-3d923d1ea40866d2c38bf709ddea3e1d7f2a6e87.tar.xz
drakx-3d923d1ea40866d2c38bf709ddea3e1d7f2a6e87.zip
perl_checker compliance
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/net_monitor5
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 = $_ }