perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From s...@apache.org
Subject cvs commit: modperl-2.0/t/filter/TestFilter reverse.pm
Date Sun, 12 Jan 2003 02:37:11 GMT
stas        2003/01/11 18:37:11

  Modified:    t/filter/TestFilter reverse.pm
  Log:
  send the signature only when eos has been seen (the filter can be invoked
  many times during the same request)
  
  Revision  Changes    Path
  1.5       +4 -1      modperl-2.0/t/filter/TestFilter/reverse.pm
  
  Index: reverse.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/t/filter/TestFilter/reverse.pm,v
  retrieving revision 1.4
  retrieving revision 1.5
  diff -u -r1.4 -r1.5
  --- reverse.pm	25 Nov 2002 22:46:29 -0000	1.4
  +++ reverse.pm	12 Jan 2003 02:37:11 -0000	1.5
  @@ -18,7 +18,10 @@
               $filter->print("\n");
           }
       }
  -    $filter->print("Reversed by mod_perl 2.0\n");
  +
  +    if ($filter->seen_eos) {
  +        $filter->print("Reversed by mod_perl 2.0\n");
  +    }
   
       return Apache::OK;
   }
  
  
  

Mime
View raw message