|
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); |
![[BACK]](/icons/back.gif){kind=icon}
Return to run.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / xml