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;
}
|
