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