[WWcvs] pg: Wrong correction in the previous commit.

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

Log Message:
-----------
Wrong correction in the previous commit.  Use CODE::push

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

Revision Data
-------------
Index: Parser.pm
===================================================================
RCS file: /webwork/cvs/system/pg/lib/Parser.pm,v
retrieving revision 1.26
retrieving revision 1.27
diff -Llib/Parser.pm -Llib/Parser.pm -u -r1.26 -r1.27
--- lib/Parser.pm
+++ lib/Parser.pm
@@ -644,7 +644,7 @@
   $vars = [sort(keys %{$self->{variables}})] unless $vars;
   my $n = scalar(@{$vars}); my $vnames = '';
   if ($n > 0) {
-    my @v = (); foreach my $x (@{$vars}) {&push(@v,'$'.$x)}
+    my @v = (); foreach my $x (@{$vars}) {CORE::push(@v,'$'.$x)}
     $vnames = "my (".join(',',@v).") = \@_;";
   }
   my $fn = eval