Perl, абстрактная задачка
Jun. 14th, 2011 02:27 pm![[personal profile]](https://www.dreamwidth.org/img/silk/identity/user.png){kind=small}
natarajВ программе масса вот такого:
$smtp->mail($cfg->{from}) or die $smtp->message;
$smtp->message возвращает сообщение с переводом строки
die -- не выводит сообщение at ./script line 13. если в конце сообщения есть перевод строки
Как не переписывая модуль Net::SMTP, не заводя доп. функций, и не городя больших конструкций вокруг исходного функционала... сделать так чтобы at ... line таки выводился...
$smtp->mail($cfg->{from}) or die $smtp->message;
$smtp->message возвращает сообщение с переводом строки
die -- не выводит сообщение at ./script line 13. если в конце сообщения есть перевод строки
Как не переписывая модуль Net::SMTP, не заводя доп. функций, и не городя больших конструкций вокруг исходного функционала... сделать так чтобы at ... line таки выводился...