From 4407d4c0250b2ac528a1a8cf14d6fe6f1f807606 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Tue, 4 Nov 2003 17:06:07 +0000 Subject: perl_checker fixes --- perl-install/standalone/net_monitor | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'perl-install') 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); -- cgit v1.2.1