[WWcvs] pg: Make sure the singletons are sorted before comparing them to the

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

Log Message:
-----------
Make sure the singletons are sorted before comparing them to the
intervals (and each other).

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

Revision Data
-------------
Index: Union.pm
===================================================================
RCS file: /webwork/cvs/system/pg/lib/Value/Union.pm,v
retrieving revision 1.20
retrieving revision 1.21
diff -Llib/Value/Union.pm -Llib/Value/Union.pm -u -r1.20 -r1.21
--- lib/Value/Union.pm
+++ lib/Value/Union.pm
@@ -218,7 +218,7 @@
   }
   my @union = (); my @set = (); my $prevX;
   @intervals = (CORE::sort {$a <=> $b} @intervals);
-  ELEMENT: foreach my $x (@singletons) {
+  ELEMENT: foreach my $x (sort {$a <=> $b} @singletons) {
     next if defined($prevX) && $prevX == $x; $prevX = $x;
     foreach my $I (@intervals) {
       my ($a,$b) = $I->value;