VPF::Carp::croak vs eval - Форум программистов

KSURi

Дата 30.12.2008, 19:51 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 887
Регистрация: 8.6.2006
Где: Russia

Репутация: 20
Всего: 27

Есть примерно такой код:

Код


sub foo {
  # ...
  eval {
    $mime_lite_obj->send(%params)
  };
  # ..
}

этот код находится в модуле, который использует один из скриптов. Так вот несмотря на eval, этот скрипт иногда вылетает с ошибкой SMTP

Код


Net::CMD (Net::SMTP) DATASEND command failed.
Last server message was: Go ahead y6sm32554954mug.2
This probably represents a problem with newline encoding  at .../MIME/Lite.pm line 2322

Почему это происходит? Меня волнует не почему SMTP ругается, а почему скрипт не игнорирует croak.

PS: оборачивал вызов метода foo в eval, менял eval {} на eval qq{} - ничего не помогло.

--------------------

Died at Life.pl line 21

gcc

Дата 31.12.2008, 12:43 (ссылка)

(нет голосов)

Загрузка ...

Агент алкомафии

Профиль
Группа: Участник
Сообщений: 2691
Регистрация: 25.4.2008
Где: %&й

Репутация: 1
Всего: 17

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

Carp ошибки пишет? может быть eval реагирует на "маленькие" ошибки которые идут в лог веб сервера

Это сообщение отредактировал(а) gcc - 31.12.2008, 13:52

--------------------

Perl FAQ
freelance
perl, jquery, js, php
perl, jquery

ginnie

Дата 31.12.2008, 14:45 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 1287
Регистрация: 6.1.2008
Где: Москва

Репутация: 38
Всего: 49

KSURi, проблема скорее всего не в croak(), т.к. фрагмент

Код


use Carp;

eval {
   croak('test 1'); 
};

warn 'test 2';

работает правильно.

--------------------

Написать код, понятный компьютеру, может каждый, но только хорошие программисты пишут код, понятный людям. (Мартин Фаулер. Рефакторинг)

KSURi

Дата 31.12.2008, 14:48 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 887
Регистрация: 8.6.2006
Где: Russia

Репутация: 20
Всего: 27

Проблема была решена "бубнами": в скрипте использовался модуль Win32::Daemon::Simple. После его удаления вылетания прекратились.
Однако, в чем была суть, я так и не понял.

--------------------

Died at Life.pl line 21

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »