diff options
author | Thierry Vignaud <tvignaud@mandriva.org> | 2003-11-04 17:06:07 +0000 |
---|---|---|
committer | Thierry Vignaud <tvignaud@mandriva.org> | 2003-11-04 17:06:07 +0000 |
commit | 4407d4c0250b2ac528a1a8cf14d6fe6f1f807606 (patch) | |
tree | 65ee7c6b4b161b7adc949f7b9e27dd1a9eb59c55 | |
parent | c834bfea5c8dd518e5017c6e649768e3dae6ed97 (diff) | |
download | drakx-4407d4c0250b2ac528a1a8cf14d6fe6f1f807606.tar drakx-4407d4c0250b2ac528a1a8cf14d6fe6f1f807606.tar.gz drakx-4407d4c0250b2ac528a1a8cf14d6fe6f1f807606.tar.bz2 drakx-4407d4c0250b2ac528a1a8cf14d6fe6f1f807606.tar.xz drakx-4407d4c0250b2ac528a1a8cf14d6fe6f1f807606.zip |
perl_checker fixes
-rwxr-xr-x | perl-install/standalone/net_monitor | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/perl-install/standalone/net_monitor b/perl-install/standalone/net_monitor index b7fb30680..c1687cd50 100755 --- a/perl-install/standalone/net_monitor +++ b/perl-install/standalone/net_monitor @@ -525,11 +525,11 @@ sub draw_monitor { my ($gc2, $text); my ($dif1, $dif2); if ($last_a) { - $dif1 = abs(150-@{$o->{stack_ra}}[$last_a]*150/$ech - $i); - $dif2 = abs(@{$o->{stack_ta}}[$last_a]*150/$ech - $i); + $dif1 = abs(150-(@{$o->{stack_ra}}[$last_a])*150/$ech - $i); + $dif2 = abs((@{$o->{stack_ta}}[$last_a])*150/$ech - $i); } else { - $dif1 = abs(150-@{$o->{stack_r}}[@{$o->{stack_r}}-1]*150/$ech - $i); - $dif2 = abs(@{$o->{stack_t}}[@{$o->{stack_t}}-1]*150/$ech - $i); + $dif1 = abs(150-(@{$o->{stack_r}}[@{$o->{stack_r}}-1])*150/$ech - $i); + $dif2 = abs((@{$o->{stack_t}}[@{$o->{stack_t}}-1])*150/$ech - $i); } if ($dif1 < $dif2) { $text = formatXiB((150-$i)*$ech/150); |