openwebwork-cvs

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

Log Message:
-----------
Fix error message for powers of negatives

Modified Files:
--------------
    pg/lib/Value:
        Real.pm
    pg/lib/Parser/BOP:
        power.pm

Revision Data
-------------
Index: Real.pm
===================================================================
RCS file: /webwork/cvs/system/pg/lib/Value/Real.pm,v
retrieving revision 1.42
retrieving revision 1.43
diff -Llib/Value/Real.pm -Llib/Value/Real.pm -u -r1.42 -r1.43
--- lib/Value/Real.pm
+++ lib/Value/Real.pm
@@ -96,7 +96,7 @@
   my ($self,$l,$r,$other) = Value::checkOpOrderWithPromote(@_);
   my $x = $l->{data}[0] ** $r->{data}[0];
   return $self->inherit($other)->make($x) unless $x eq 'nan';
-  Value::Error("Can't raise a negative number to a power") if ($l->{data}[0] < 0);
+  Value::Error("Can't raise a negative number to a non-integer power") if ($l->{data}[0] < 0);
   Value::Error("Result of exponention is not a number");
 }
 
Index: power.pm
===================================================================
RCS file: /webwork/cvs/system/pg/lib/Parser/BOP/power.pm,v
retrieving revision 1.17
retrieving revision 1.18
diff -Llib/Parser/BOP/power.pm -Llib/Parser/BOP/power.pm -u -r1.17 -r1.18
--- lib/Parser/BOP/power.pm
+++ lib/Parser/BOP/power.pm
@@ -32,7 +32,7 @@
   my $self = $_[0];
   my $x = $_[1] ** $_[2];
   return $x unless $x eq 'nan';
-  $self->Error("Can't raise a negative number to a power")
+  $self->Error("Can't raise a negative number to a non-integer power")
     if Value::isNumber($_[1]) && Value::makeValue($_[1],context=>$self->context)->value < 0;
   $self->Error("Result of exponentiation is not a number");
 }