kainwinterheart 07.11.2012 09:48 work5A48CCD5

perl -Mstrict -e 'eval{ local $@ = undef; eval{ die }; if(my $err=$@){print "INNER ERROR\n";die $err;} }; if(my$err=$@){ print "OUTER ERROR\n";die $err; };print "1\n";'

perl, гавно
#thitii
re 11 comments !recommend ~bookmark Ssubscribe
1. hirthwork 07.11.2012 09:49 mcabber

у тебя два раза один и тот же тег

#thitii/1
rereply
2. kainwinterheart → hirthwork /1 07.11.2012 09:50 work5A48CCD5

Что-то мне подсказывает, что ты прав.

#thitii/2
rereply
3. Ky6uk 07.11.2012 09:50 ШОRK

VSEO OK

#thitii/3
rereply
4. Ky6uk 07.11.2012 09:55

алсо, нахуй тут $err? в $! уже есть твоя ошибка
man perlvar

#thitii/4
rereply
5. kainwinterheart → Ky6uk /4 07.11.2012 09:56 work5A48CCD5

$@, блять, а не $!.

#thitii/5
rereply
6. Ky6uk → kainwinterheart /5 07.11.2012 10:02 ШОRK

ну так там и хранится результат последнего eval(), или ты его локальным хотел сделать, наркоман?

#thitii/6
rereply
7. kainwinterheart → Ky6uk /6 07.11.2012 10:03 work5A48CCD5

Да, я хотел сделать его локальным. И сделал. Но потом захотел сдохнуть и выше, что сделать не смог. А $err за тем, что не хочу писать много раз $@, если мне надо с ним что-то сделать.

#thitii/7
rereply
8. Ky6uk → kainwinterheart /7 07.11.2012 10:04 ШОRK

нихуя же не сделал раз не работает

#thitii/8
rereply
9. kainwinterheart → Ky6uk /8 07.11.2012 10:16 work5A48CCD5

Хотя local мне это должен был обещать.

#thitii/9
rereply
10. Ky6uk → kainwinterheart /9 07.11.2012 10:18 ШОRK

про встроенные переменные только поехавшие типа тебя так думают

#thitii/10
rereply
11. kainwinterheart → Ky6uk /10 07.11.2012 10:19 work5A48CCD5

Очень может быть.

#thitii/11
rereply
Do you really want to delete ?