commit 3c754335650c3c0e6b53c291e8b674bc5ec4cdd3
author Maxim Dounin <mdounin@mdounin.ru> Mon Aug 01 20:23:32 2011 +0400
committer Maxim Dounin <mdounin@mdounin.ru> Mon Aug 01 20:23:32 2011 +0400
tree d9bc7d165f0d46d53cd677d3ae017c0d44f72481
parent 9f49ad4012e1ac8ce6ddd6a3c877b88c88157c4f

Tests: set SIGALRM handler before arming timer.

lib/Test/Nginx/IMAP.pm

diff --git a/lib/Test/Nginx/IMAP.pm b/lib/Test/Nginx/IMAP.pm
index b37dad0..4ed5b2b 100644
--- a/lib/Test/Nginx/IMAP.pm
+++ b/lib/Test/Nginx/IMAP.pm
@@ -41,8 +41,8 @@
 sub read {
 	my ($self) = @_;
 	eval {
-		alarm(2);
 		local $SIG{ALRM} = sub { die "alarm\n" };
+		alarm(2);
 		while (<$self>) {
 			log_in($_);
 			# XXX

lib/Test/Nginx/POP3.pm

diff --git a/lib/Test/Nginx/POP3.pm b/lib/Test/Nginx/POP3.pm
index 24b0482..aacdb88 100644
--- a/lib/Test/Nginx/POP3.pm
+++ b/lib/Test/Nginx/POP3.pm
@@ -41,8 +41,8 @@
 sub read {
 	my ($self) = @_;
 	eval {
-		alarm(2);
 		local $SIG{ALRM} = sub { die "alarm\n" };
+		alarm(2);
 		while (<$self>) {
 			log_in($_);
 			# XXX

lib/Test/Nginx/SMTP.pm

diff --git a/lib/Test/Nginx/SMTP.pm b/lib/Test/Nginx/SMTP.pm
index 6a5f1f0..713cd13 100644
--- a/lib/Test/Nginx/SMTP.pm
+++ b/lib/Test/Nginx/SMTP.pm
@@ -41,8 +41,8 @@
 sub read {
 	my ($self) = @_;
 	eval {
-		alarm(2);
 		local $SIG{ALRM} = sub { die "alarm\n" };
+		alarm(2);
 		while (<$self>) {
 			log_in($_);
 			next if m/^\d\d\d-/;