38 lines
685 B
Perl
38 lines
685 B
Perl
|
use Win32::OLE::Lite;
|
|||
|
|
|
|||
|
|
sub _eval_init_
|
|||
|
|
{
|
|||
|
|
# internal variables
|
|||
|
|
$_eval_code_ = '';
|
|||
|
|
$_eval_line_ = 0;
|
|||
|
|
$_eval_errline_ = 0;
|
|||
|
|
$_eval_errcode_ = '';
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
sub _eval_
|
|||
|
|
{
|
|||
|
|
$_eval_code_ = $_[0];
|
|||
|
|
$_eval_line_ = $_[1];
|
|||
|
|
eval $_[0];
|
|||
|
|
if(!$@)
|
|||
|
|
{ # no error;
|
|||
|
|
return ;
|
|||
|
|
}
|
|||
|
|
else
|
|||
|
|
{
|
|||
|
|
my $w = $@;
|
|||
|
|
$w =~ s/at \(eval (\d+)\) //;
|
|||
|
|
my $eb=$1; # eval block
|
|||
|
|
$w =~ s/ line (\d+)//;
|
|||
|
|
my $el=$1-1; # line number in eval block
|
|||
|
|
$_eval_errline_ = $_eval_line_+$el;
|
|||
|
|
my @lines = split(/^/m, $_eval_code_);
|
|||
|
|
if($el > 0 ) {
|
|||
|
|
$_eval_errcode_ = $lines[$el-1] . $lines[$el];
|
|||
|
|
} else {
|
|||
|
|
$_eval_errcode_ = $lines[$el] . $lines[$el+1];
|
|||
|
|
}
|
|||
|
|
return $w;
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|