version 1.58, 2006/03/16 15:47:37
|
version 1.59, 2008/09/11 14:47:24
|
Line 135 sub run {
|
Line 135 sub run {
|
} |
} |
my $errormsg='<pre>'.&HTML::Entities::encode($error,'<>&"').' '. |
my $errormsg='<pre>'.&HTML::Entities::encode($error,'<>&"').' '. |
&HTML::Entities::encode($innererror,'<>&"'). |
&HTML::Entities::encode($innererror,'<>&"'). |
'</pre> occured while running <pre>'; |
'</pre> occurred while running <pre>'; |
$code=&HTML::Entities::encode($code,'<>&"'); |
$code=&HTML::Entities::encode($code,'<>&"'); |
if ($innererror=~/line (\d+)/) { |
if ($innererror=~/line (\d+)/) { |
my $linenumber=$1; |
my $linenumber=$1; |