Mercurial > hg > nginx-tests
diff lib/Test/Nginx/SMTP.pm @ 209:5137f27935b4
Tests: log timeouts in IMAP/POP3/SMTP.
author | Maxim Dounin <mdounin@mdounin.ru> |
---|---|
date | Wed, 14 Mar 2012 17:50:36 +0400 |
parents | 465a711ffa19 |
children | de7338227832 |
line wrap: on
line diff
--- a/lib/Test/Nginx/SMTP.pm +++ b/lib/Test/Nginx/SMTP.pm @@ -41,7 +41,7 @@ sub send { sub read { my ($self) = @_; eval { - local $SIG{ALRM} = sub { die "alarm\n" }; + local $SIG{ALRM} = sub { die "timeout\n" }; alarm(2); while (<$self>) { log_in($_); @@ -52,6 +52,7 @@ sub read { }; alarm(0); if ($@) { + log_in("died: $@"); return undef; } return $_;