version 1.35, 2003/04/03 14:35:59
|
version 1.39, 2003/06/18 21:04:42
|
Line 93 sub run {
|
Line 93 sub run {
|
alarm(0); |
alarm(0); |
}; |
}; |
my $error=$@; |
my $error=$@; |
&Apache::lonxml::debug("run got $@"); |
|
if (($Apache::run::timeout || $error ne '' || $innererror ne '') && !$hideerrors) { |
if (($Apache::run::timeout || $error ne '' || $innererror ne '') && !$hideerrors) { |
if ($Apache::run::timeout) { |
if ($Apache::run::timeout) { |
$error = 'Code ran too long. It ran for more than '. |
$error = 'Code ran too long. It ran for more than '. |
Line 131 sub dump {
|
Line 130 sub dump {
|
$symname.'{$_} } sort keys %'. |
$symname.'{$_} } sort keys %'. |
$symname.')').")" |
$symname.')').")" |
} |
} |
if ($line ne '') { $dump.=&HTML::Entities::encode($line)."<br />\n"; } |
if ($line ne '') { $dump.=&HTML::Entities::encode($line)."<br />"; } |
} |
} |
} |
} |
$dump.=''; |
$dump.=''; |