Return to lonuserstate.pm CVS log | Up to [LON-CAPA] / rat |
version 1.114, 2006/05/30 17:15:10 | version 1.115, 2006/05/30 19:11:37 |
---|---|
Line 686 sub evalstate { | Line 686 sub evalstate { |
if (-e $fn) { | if (-e $fn) { |
my @conditions=(); | my @conditions=(); |
{ | { |
open(my $fh,$fn); | open(my $fh,"<$fn"); |
@conditions=<$fh>; | @conditions=<$fh>; |
close($fh); | |
} | } |
my $safeeval = new Safe; | my $safeeval = new Safe; |
my $safehole = new Safe::Hole; | my $safehole = new Safe::Hole; |