[WWcvs] pg: Cosmetic change.

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

Log Message:
-----------
Cosmetic change.

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.21
retrieving revision 1.22
diff -Llib/Parser/List.pm -Llib/Parser/List.pm -u -r1.21 -r1.22
--- lib/Parser/List.pm
+++ lib/Parser/List.pm
@@ -26,7 +26,7 @@
   my $entryType = shift || $Value::Type{unknown};
   my $open = shift || ''; my $close = shift || '';
   my $context = $equation->{context};
-  my $parens = $context->{parens}; my $list;
+  my $parens = $context->{parens};
 
   if ($paren && $close && $paren->{formInterval}) {
     $paren = $parens->{interval}
@@ -45,7 +45,7 @@
     }
   }
   $open = '' if $open eq 'start'; $close = '' if $close eq 'start';
-  $list = bless {
+  my $list = bless {
     coords => $coords, type => $type, open => $open, close => $close,
     paren => $paren, equation => $equation, isConstant => $constant
   }, $context->{lists}{$type->{name}}{class};