openwebwork-cvs

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

Log Message:
-----------
Remove cached perlFunction when a substitution or reduction is made.

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

Revision Data
-------------
Index: Parser.pm
===================================================================
RCS file: /webwork/cvs/system/pg/lib/Parser.pm,v
retrieving revision 1.49
retrieving revision 1.50
diff -Llib/Parser.pm -Llib/Parser.pm -u -r1.49 -r1.50
--- lib/Parser.pm
+++ lib/Parser.pm
@@ -638,6 +638,7 @@
   $self->{tree} = $self->{tree}->reduce;
   $self->{variables} = $self->{tree}->getVariables;
   $self->{context}{reduction} = $reduce if $reduce;
+  delete $self->{f};
   return $self;
 }
 
@@ -652,6 +653,7 @@
   foreach my $x (keys %{$self->{values}}) {delete $self->{variables}{$x}}
   $self->{tree} = $self->{tree}->substitute;
   $self->unsetValues;
+  delete $self->{f};
   return $self;
 }