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

[stas]

stas        2004/06/01 16:36:47

  Modified:    t/protocol/TestProtocol echo_filter.pm
  Log:
  tidy up
  
  Revision  Changes    Path
  1.13      +2 -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.12
  retrieving revision 1.13
  diff -u -u -r1.12 -r1.13
  --- echo_filter.pm    31 May 2004 07:33:33 -0000      1.12
  +++ echo_filter.pm    1 Jun 2004 23:36:47 -0000       1.13
  @@ -10,7 +10,7 @@
   use APR::Error ();
   use Apache::Filter ();
   
  -use APR::Const -compile => qw(SUCCESS EOF);
  +use APR::Const    -compile => qw(SUCCESS EOF);
   use Apache::Const -compile => qw(OK MODE_GETLINE);
   
   sub handler {
  @@ -27,7 +27,7 @@
   
       for (;;) {
           my $rv = $c->input_filters->get_brigade($bb, Apache::MODE_GETLINE);
  -                if ($rv != APR::SUCCESS && $rv != APR::EOF) {
  +        if ($rv != APR::SUCCESS && $rv != APR::EOF) {
               my $error = APR::Error::strerror($rv);
               warn __PACKAGE__ . ": get_brigade: $error\n";
               last;