openwebwork-cvs

[WWcvs] pg: Cosmetic change.

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

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

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

Revision Data
-------------
Index: Value.pm
===================================================================
RCS file: /webwork/cvs/system/pg/lib/Value.pm,v
retrieving revision 1.39
retrieving revision 1.40
diff -Llib/Value.pm -Llib/Value.pm -u -r1.39 -r1.40
--- lib/Value.pm
+++ lib/Value.pm
@@ -497,7 +497,7 @@
 #
 sub Error {
   my $message = shift;
-  $message = [$message,@_] if (scalar(@_));
+  $message = [$message,@_] if scalar(@_) > 0;
   $$context->setError($message,'');
   $message = $$context->{error}{message};
   die $message . traceback() if $$context->{debug};

[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};