![[BACK]](/icons/back.gif){kind=icon}
Return to Safe.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / xml|
Return to Safe.pm CVS log | Up to [LON-CAPA] / loncom / xml |
| version 1.7, 2003/08/30 03:25:34 | version 1.9, 2009/02/13 17:20:38 |
|---|---|
| Line 1 | Line 1 |
| # $Id$ | |
| package Safe; | package Safe; |
| use 5.003_11; | use 5.003_11; |
| Line 208 sub varglob { | Line 210 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}; |