[WWcvs] pg: Backport from HEAD.

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

Log Message:
-----------
Backport from HEAD.  (Fixes error incorrect error message when
formula-valued matrices are created.)

Tags:
----
rel-2-2-dev

Modified Files:
--------------
    pg/lib/Parser/List:
        Matrix.pm

Revision Data
-------------
Index: Matrix.pm
===================================================================
RCS file: /webwork/cvs/system/pg/lib/Parser/List/Matrix.pm,v
retrieving revision 1.5
retrieving revision 1.5.2.1
diff -Llib/Parser/List/Matrix.pm -Llib/Parser/List/Matrix.pm -u -r1.5 -r1.5.2.1
--- lib/Parser/List/Matrix.pm
+++ lib/Parser/List/Matrix.pm
@@ -20,8 +20,8 @@
       {$x->makeMatrix($self->{type}{name},$self->{open},$self->{close})}
   }
   foreach my $x (@{$self->{coords}}) {
-    $self->{equation}->Error("Entries in a Matrix must be Numbers or Lists")
-      unless ($x->class =~ m/Number|List/);
+    $self->{equation}->Error("Entries in a Matrix must be Numbers or Lists of Numbers")
+      unless ($x->type =~ m/Number|Matrix/);
   }
 }