perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From s...@apache.org
Subject svn commit: r165210 - /perl/modperl/trunk/t/protocol/TestProtocol/echo_timeout.pm
Date Thu, 28 Apr 2005 22:00:07 GMT
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 $@;
         }
     }



Mime
View raw message