summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-11-04 17:06:07 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-11-04 17:06:07 +0000
commit4407d4c0250b2ac528a1a8cf14d6fe6f1f807606 (patch)
tree65ee7c6b4b161b7adc949f7b9e27dd1a9eb59c55 /perl-install
parentc834bfea5c8dd518e5017c6e649768e3dae6ed97 (diff)
downloaddrakx-backup-do-not-use-4407d4c0250b2ac528a1a8cf14d6fe6f1f807606.tar
drakx-backup-do-not-use-4407d4c0250b2ac528a1a8cf14d6fe6f1f807606.tar.gz
drakx-backup-do-not-use-4407d4c0250b2ac528a1a8cf14d6fe6f1f807606.tar.bz2
drakx-backup-do-not-use-4407d4c0250b2ac528a1a8cf14d6fe6f1f807606.tar.xz
drakx-backup-do-not-use-4407d4c0250b2ac528a1a8cf14d6fe6f1f807606.zip
perl_checker fixes
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/net_monitor8
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);