# HG changeset patch
# User Maxim Dounin <mdounin@mdounin.ru>
# Date 1312215812 -14400
# Node ID 465a711ffa1998511290049117359568e9c1b20b
# Parent  2c07dc5bc35475391b121b9278d88c7bf75e957e
Tests: set SIGALRM handler before arming timer.

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