[WWcvs] pg: Fixed a problem with the automatic upgrading of object classes for

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

Log Message:
-----------
Fixed a problem with the automatic upgrading of object classes for
when Value objects are subclassed but are not entered into the
precedence list.

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

Revision Data
-------------
Index: Value.pm
===================================================================
RCS file: /webwork/cvs/system/pg/lib/Value.pm,v
retrieving revision 1.48
retrieving revision 1.49
diff -Llib/Value.pm -Llib/Value.pm -u -r1.48 -r1.49
--- lib/Value.pm
+++ lib/Value.pm
@@ -411,7 +411,7 @@
   return 0 unless Value::isValue($other);
   my $sprec = $$context->{precedence}{class($self)};
   my $oprec = $$context->{precedence}{class($other)};
-  return (defined($oprec) && $sprec < $oprec);
+  return (defined($sprec) && defined($oprec) && $sprec < $oprec);
 }
 
 sub promote {shift}