[prev in list] [next in list] [prev in thread] [next in thread] 

List:       apache-modperl-cvs
Subject:    svn commit: r165210 -
From:       stas () apache ! org
Date:       2005-04-28 22:00:07
Message-ID: 20050428220007.6478.qmail () minotaur ! apache ! org
[Download RAW message or body]

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 $@;
         }
     }


[prev in list] [next in list] [prev in thread] [next in thread]