version 1.34, 2003/03/28 23:32:46
|
version 1.35, 2003/04/03 14:35:59
|
Line 49 sub evaluate {
|
Line 49 sub evaluate {
|
}; |
}; |
my $innererror; |
my $innererror; |
eval { |
eval { |
alarm(Apache->request->server->timeout); |
alarm($Apache::lonnet::perlvar{'lonScriptTimeout'}); |
$safeeval->reval('{'.$decls.';$_=<<\'EXPRESSION\';'."\n".$expression. |
$safeeval->reval('{'.$decls.';$_=<<\'EXPRESSION\';'."\n".$expression. |
"\n".'EXPRESSION'."\n".$EVALUATE_STRING.'}'); |
"\n".'EXPRESSION'."\n".$EVALUATE_STRING.'}'); |
$innererror=$@; |
$innererror=$@; |
Line 87 sub run {
|
Line 87 sub run {
|
}; |
}; |
my $innererror; |
my $innererror; |
eval { |
eval { |
alarm(Apache->request->server->timeout); |
alarm($Apache::lonnet::perlvar{'lonScriptTimeout'}); |
@result=$safeeval->reval($code); |
@result=$safeeval->reval($code); |
$innererror=$@; |
$innererror=$@; |
alarm(0); |
alarm(0); |