[WWcvs] pg: Maintain parentheses correctly when converting to perl.

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

Log Message:
-----------
Maintain parentheses correctly when converting to perl.

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

Revision Data
-------------
Index: Value.pm
===================================================================
RCS file: /webwork/cvs/system/pg/lib/Value.pm,v
retrieving revision 1.44
retrieving revision 1.45
diff -Llib/Value.pm -Llib/Value.pm -u -r1.44 -r1.45
--- lib/Value.pm
+++ lib/Value.pm
@@ -548,6 +548,8 @@
     $perl = '['.$perl.']' if $mtype > 0;
   } else {
     $perl = 'new '.ref($self).'('.join(',',@p).')';
+    $perl = "($perl)->with(open=>'$self->{open}',close=>'$self->{close}')"
+      if $class eq 'List' && $self->{open}.$self->{close} ne '()';
     $perl = '('.$perl.')' if $parens == 1;
   }
   return $perl;