cvs commit: modperl-2.0/t/protocol/TestProtocol echo_filter.pm

[dougm]

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