[WWcvs] pg: Only try to form intervals from lists that could be intervals when they are of length 2.

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

Log Message:
-----------
Only try to form intervals from lists that could be intervals when
they are of length 2.

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

Revision Data
-------------
Index: List.pm
===================================================================
RCS file: /webwork/cvs/system/pg/lib/Parser/List.pm,v
retrieving revision 1.22
retrieving revision 1.23
diff -Llib/Parser/List.pm -Llib/Parser/List.pm -u -r1.22 -r1.23
--- lib/Parser/List.pm
+++ lib/Parser/List.pm
@@ -28,10 +28,9 @@
   my $context = $equation->{context};
   my $parens = $context->{parens};
 
-  if ($paren && $close && $paren->{formInterval}) {
+  if ($paren && $close && $paren->{formInterval} && scalar(@{$coords}) == 2) {
     $paren = $parens->{interval}
-      if ($paren->{close} ne $close || (scalar(@{$coords}) == 2 &&
-           ($coords->[0]->{isInfinite} || $coords->[1]->{isInfinite})));
+      if $paren->{close} ne $close || $coords->[0]->{isInfinite} || $coords->[1]->{isInfinite};
   }
   my $type = Value::Type($paren->{type},scalar(@{$coords}),$entryType,
                                 list => 1, formMatrix => $paren->{formMatrix});