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 $_;'); |