[WWcvs] pg: Improved error messages for formulas returning infinity

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

Log Message:
-----------
Improved error messages for formulas returning infinity

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

Revision Data
-------------
Index: Value.pm
===================================================================
RCS file: /webwork/cvs/system/pg/lib/Value.pm,v
retrieving revision 1.46
retrieving revision 1.47
diff -Llib/Value.pm -Llib/Value.pm -u -r1.46 -r1.47
--- lib/Value.pm
+++ lib/Value.pm
@@ -220,6 +220,7 @@
       $type .= ' of '.$ltype.'s';
     }
   }
+  return 'an Infinity' if $type eq 'String' && $value->{isInfinite};
   return 'a Word' if $type eq 'String';
   return 'a Complex Number' if $value->isComplex;
   return 'an '.$type if $type =~ m/^[aeio]/i;