|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Andrey Sapozhnikov 2:5020/400 05 Feb 2003 17:47:29
To : Artem Chuprina
Subject : Re: died at (eval 1) line 1
--------------------------------------------------------------------------------
Artem Chuprina wrote:
> Здравствуй, Konstantin Stupnik.
>
> KS>>> А с AUTOLOAD нельзя разрешить это?
>
> AC>> Hет. Там проблема в том, что undefined объект, а не метод.
>
> KS> А чего хочется всё же выяснить?
> KS> Откуда был вызов CODEREF-а который привёл к die?
>
> Hет, в которой из двух сотен таких строк (подсовываемых eval) и в каком месте
> произошла ошибка. В каком месте - die расскажет, а вот в котором из eval...
А написать свой eval которому передавать кроме строчки ее ID? типа:
sub my_eval {
my $id = shift;
if (wantarray) {
my @res;
{
local $SIG{__DIE__};
@res = eval @_;
}
die "ID: $id - $@" if $@;
return @res;
}
my $res;
{
local $SIG{__DIE__};
$res = eval @_;
}
die "ID: $id - $@" if $@;
return $res;
}
и вызывать ее потом вместо eval
my $fr = my_eval $id, 'sub { my $test; $test->method() }';
$fr->();
Андрей
--- ifmail v.2.15dev5
* Origin: Demos online service (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
