[WWcvs] pg: A couple of syntax issues.

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

Log Message:
-----------
A couple of syntax issues.

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

Revision Data
-------------
Index: Differentiation.pm
===================================================================
RCS file: /webwork/cvs/system/pg/lib/Parser/Differentiation.pm,v
retrieving revision 1.13
retrieving revision 1.14
diff -Llib/Parser/Differentiation.pm -Llib/Parser/Differentiation.pm -u -r1.13 -r1.14
--- lib/Parser/Differentiation.pm
+++ lib/Parser/Differentiation.pm
@@ -13,7 +13,7 @@
 sub Parser::D {
   my $self = shift;
   my $d; my @x = @_; my $x;
-  if (defined(@x[0]) && $x[0] =~ m/^\d+$/) {
+  if (defined($x[0]) && $x[0] =~ m/^\d+$/) {
     $d = shift(@x);
     $self->Error("You can only specify one variable when you give a derivative count")
       unless scalar(@x) <= 1;
@@ -29,7 +29,7 @@
       $self->Error("You must specify a variable to differentiate by") unless $n == 1;
       $x = $vars[0];
     }
-    push(@x,$x);
+    CORE::push(@x,$x);
   }
   @x = ($x[0]) x $d if $d;
   my $f = $self->{tree};