From: dpvc v. a. <we...@ma...> - 2009-10-01 15:01:26
|
Log Message: ----------- During substitution, remove cached values that could change Modified Files: -------------- pg/lib: Parser.pm Revision Data ------------- Index: Parser.pm =================================================================== RCS file: /webwork/cvs/system/pg/lib/Parser.pm,v retrieving revision 1.54 retrieving revision 1.55 diff -Llib/Parser.pm -Llib/Parser.pm -u -r1.54 -r1.55 --- lib/Parser.pm +++ lib/Parser.pm @@ -662,7 +662,8 @@ foreach my $x (keys %{$self->{values}}) {delete $self->{variables}{$x}} $self->{tree} = $self->{tree}->substitute; $self->unsetValues; - delete $self->{f}; + foreach my $id ("test_values","test_adapt","string","f", + "stack","ref","tokens","space","domainMismatch") {delete $self->{$id}} return $self; } |