Author: stas Date: Thu Apr 28 15:00:06 2005 New Revision: 165210 URL: http://svn.apache.org/viewcvs?rev=165210&view=rev Log: revert: it was a correct timeout error checking
Modified: perl/modperl/trunk/t/protocol/TestProtocol/echo_timeout.pm Modified: perl/modperl/trunk/t/protocol/TestProtocol/echo_timeout.pm URL: http://svn.apache.org/viewcvs/perl/modperl/trunk/t/protocol/TestProtocol/echo_timeout.pm?rev=165210&r1=165209&r2=165210&view=diff ============================================================================== --- perl/modperl/trunk/t/protocol/TestProtocol/echo_timeout.pm (original) +++ perl/modperl/trunk/t/protocol/TestProtocol/echo_timeout.pm Thu Apr 28 15:00:06 2005 @@ -10,10 +10,9 @@ use Apache2::Connection (); use APR::Socket (); -use APR::Status (); use Apache2::Const -compile => 'OK'; -use APR::Const -compile => qw(SO_NONBLOCK); +use APR::Const -compile => qw(TIMEUP SO_NONBLOCK); use constant BUFF_LEN => 1024; @@ -33,7 +32,7 @@ my $buff; my $rlen = eval { $socket->recv($buff, BUFF_LEN) }; if ($@) { - die "timed out, giving up: $@" if APR::Status::is_EAGAIN($@); + die "timed out, giving up: $@" if $@ == APR::Const::TIMEUP; die $@; } @@ -41,7 +40,7 @@ my $wlen = eval { $socket->send($buff) }; if ($@) { - die "timed out, giving up: $@" if APR::Status::is_EAGAIN($@); + die "timed out, giving up: $@" if $@ == APR::Const::TIMEUP; die $@; } }