|
version 1.47, 2004/07/13 19:12:46
|
version 1.48, 2004/07/19 16:53:46
|
|
Line 82 sub evaluate {
|
Line 82 sub evaluate {
|
| die("timeout"); |
die("timeout"); |
| }; |
}; |
| my $innererror; |
my $innererror; |
| $safeeval->permit("require"); |
|
| eval { |
eval { |
| alarm($Apache::lonnet::perlvar{'lonScriptTimeout'}); |
alarm($Apache::lonnet::perlvar{'lonScriptTimeout'}); |
| $safeeval->reval('{'.$decls.';$_=<<\'EXPRESSION\';'."\n".$expression. |
$safeeval->reval('{'.$decls.';$_=<<\'EXPRESSION\';'."\n".$expression. |
|
Line 90 sub evaluate {
|
Line 89 sub evaluate {
|
| $innererror=$@; |
$innererror=$@; |
| alarm(0); |
alarm(0); |
| }; |
}; |
| $safeeval->deny("require"); |
|
| my $error=$@; |
my $error=$@; |
| if ($error eq '' && $innererror eq '' && !$Apache::run::timeout) { |
if ($error eq '' && $innererror eq '' && !$Apache::run::timeout) { |
| $result = $safeeval->reval('return $_;'); |
$result = $safeeval->reval('return $_;'); |
![[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