[WWcvs] pg: Had the inequality going the wrong way.

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

Log Message:
-----------
Had the inequality going the wrong way.  OOPS!

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

Revision Data
-------------
Index: Vector.pm
===================================================================
RCS file: /webwork/cvs/system/pg/lib/Value/Vector.pm,v
retrieving revision 1.35
retrieving revision 1.36
diff -Llib/Value/Vector.pm -Llib/Value/Vector.pm -u -r1.35 -r1.36
--- lib/Value/Vector.pm
+++ lib/Value/Vector.pm
@@ -147,7 +147,7 @@
     return scalar(@l) <=> scalar(@r) unless
        ($l->getFlag("ijk") || $r->getFlag("ijk")) &&
        ($l->getFlag("ijkAnyDimension") || $r->getFlag("ijkAnyDimension"));
-    if (scalar(@l) > scalar(@r)) {push(@l,0 x (scalar(@r)-scalar(@l)))}
+    if (scalar(@l) < scalar(@r)) {push(@l,0 x (scalar(@r)-scalar(@l)))}
                             else {push(@r,0 x (scalar(@l)-scalar(@r)))}
   }
   my $cmp = 0;