dougm 01/08/01 21:51:11 Modified: t/protocol/TestProtocol echo_filter.pm Log: dont warn on EOF Revision Changes Path 1.2 +4 -2 modperl-2.0/t/protocol/TestProtocol/echo_filter.pm Index: echo_filter.pm =================================================================== RCS file: /home/cvs/modperl-2.0/t/protocol/TestProtocol/echo_filter.pm,v retrieving revision 1.1 retrieving revision 1.2 diff -u -r1.1 -r1.2 --- echo_filter.pm 2001/07/15 22:39:37 1.1 +++ echo_filter.pm 2001/08/02 04:51:11 1.2 @@ -4,7 +4,7 @@ use Apache::Connection (); use APR::Bucket (); use APR::Brigade (); -use APR::Const -compile => qw(SUCCESS); +use APR::Const -compile => qw(SUCCESS EOF); use Apache::Const -compile => qw(MODE_BLOCKING); use APR::Lib (); @@ -19,7 +19,9 @@ if ($rv != APR::SUCCESS or $bb->empty) { my $error = APR::strerror($rv); - warn "get_brigade: $error\n"; + unless ($rv == APR::EOF) { + warn "[echo_filter] get_brigade: $error\n"; + } $bb->destroy; last; }