Return to Safe.pm CVS log | Up to [LON-CAPA] / loncom / xml |
version 1.7, 2003/08/30 03:25:34 | version 1.8, 2003/09/01 01:13:59 |
---|---|
Line 208 sub varglob { | Line 208 sub varglob { |
sub reval { | sub reval { |
$Safe::evalsub; | undef($Safe::evalsub); |
{ | { |
my ($obj, $expr, $strict) = @_; | my ($obj, $expr, $strict) = @_; |
my $root = $obj->{Root}; | my $root = $obj->{Root}; |