ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Anatoly Moskovsky 2:5020/400 06 Feb 2003 16:23:13
To : Artem Chuprina
Subject : Re: died at (eval 1) line 1
--------------------------------------------------------------------------------
Hi!
Artem Chuprina пишет:
AC> my $fr = eval 'sub { my $test; $test->method()
AC> }';
AC> $fr->()
AC> Can't call method "method" on an undefined value
AC> at (eval 1) line 1.
AC> В реальной жизни таких вот функций пара сотен. В
AC> момент выполнения eval я
AC> знаю, к какой сущности (объекту в базе данных) он
AC> относится. Хочется уметь
AC> получить в выводе die имя этой сущности вместо
AC> или в дополнение к (eval 1).
Может я не не до конца понял условия, но не подойдет ли нечто такое:
my $sub = eval q'#line 1 "some_name"
sub {my $a = 0; 5/$a;}
';
$sub->();
Bye
--
Отправлено через сервер Форумы@mail.ru - http://talk.mail.ru
--- ifmail v.2.15dev5
* Origin: Talk.ru (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
