|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Artem Chuprina 2:5020/400 06 Feb 2003 20:23:41
To : Anatoly Moskovsky
Subject : Re: died at (eval 1) line 1
--------------------------------------------------------------------------------
Здравствуй, Anatoly Moskovsky.
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).
AM> Может я не не до конца понял условия, но не подойдет ли нечто такое:
AM> my $sub = eval q'#line 1 "some_name"
AM> sub {my $a = 0; 5/$a;}
AM> ';
AM> $sub->();
Йес! Мэни сэньксов.
--
Artem Chuprina
Communiware.net
RFC2822: <ran@ran.pp.ru>, FIDO: 2:5020/122.256, ICQ: 13038757
--- ifmail v.2.15dev5
* Origin: Leninsky 45 home network (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
