[WWcvs] pg: Don't use the overloaded Real class for doing adaptive parameter

[dpvc v. a. <we...@ma...>]

Log Message:
-----------
Don't use the overloaded Real class for doing adaptive parameter
checks (use non-fuzzy checks, since we are checking the fuzziness by hand).

Modified Files:
--------------
    pg/lib/Value:
        Formula.pm

Revision Data
-------------
Index: Formula.pm
===================================================================
RCS file: /webwork/cvs/system/pg/lib/Value/Formula.pm,v
retrieving revision 1.27
retrieving revision 1.28
diff -Llib/Value/Formula.pm -Llib/Value/Formula.pm -u -r1.27 -r1.28
--- lib/Value/Formula.pm
+++ lib/Value/Formula.pm
@@ -188,9 +188,9 @@
     my $zeroLevel  = $self->getFlag('zeroLevel',1E-14);
     foreach $i (0..scalar(@{$lvalues})-1) {
       my $tol = $tolerance;
-      $tol *= abs($lvalues->[$i]) if $isRelative && abs($lvalues->[$i]) > $zeroLevel;
-      return $rvalues->[$i]->value <=> $avalues->[$i]->value
-	unless abs($rvalues->[$i] - $avalues->[$i]) < $tol;
+      my ($lv,$rv,$av) = ($lvalues->[$i]->value,$rvalues->[$i]->value,$avalues->[$i]->value);
+      $tol *= abs($lv) if $isRelative && abs($lv) > $zeroLevel;
+      return $rv <=> $av unless abs($rv - $av) < $tol;
     }
     return 0;
   }