perl-docs-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From s...@apache.org
Subject cvs commit: modperl-docs/src/docs/2.0/user/handlers filters.pod
Date Fri, 23 May 2003 08:12:42 GMT
stas        2003/05/23 01:12:41

  Modified:    src/docs/2.0/api/Apache Filter.pod
               src/docs/2.0/user/handlers filters.pod
  Log:
  s/$filter/$f/ for consistency
  
  Revision  Changes    Path
  1.4       +3 -3      modperl-docs/src/docs/2.0/api/Apache/Filter.pod
  
  Index: Filter.pod
  ===================================================================
  RCS file: /home/cvs/modperl-docs/src/docs/2.0/api/Apache/Filter.pod,v
  retrieving revision 1.3
  retrieving revision 1.4
  diff -u -r1.3 -r1.4
  --- Filter.pod	23 May 2003 07:37:21 -0000	1.3
  +++ Filter.pod	23 May 2003 08:12:41 -0000	1.4
  @@ -107,7 +107,7 @@
   
   =head2 C<remove>
   
  -  $filter->remove;
  +  $f->remove;
   
   Remove the current filter from the filter chain (for the current
   request).
  @@ -345,7 +345,7 @@
   actually called.
   
     sub init : FilterInitHandler {
  -      my $filter = shift;
  +      my $f = shift;
         #...
         return Apache::OK;
     }
  @@ -372,7 +372,7 @@
     use base qw(Apache::Filter);
     sub init   : FilterInitHandler { ... }
     sub filter : FilterRequestHandler FilterHasInitHandler(\&init) {
  -      my ($filter, $bb) = @_;
  +      my ($f, $bb) = @_;
         # ...
         return Apache::OK;
     }
  
  
  
  1.27      +10 -10    modperl-docs/src/docs/2.0/user/handlers/filters.pod
  
  Index: filters.pod
  ===================================================================
  RCS file: /home/cvs/modperl-docs/src/docs/2.0/user/handlers/filters.pod,v
  retrieving revision 1.26
  retrieving revision 1.27
  diff -u -r1.26 -r1.27
  --- filters.pod	23 May 2003 07:37:21 -0000	1.26
  +++ filters.pod	23 May 2003 08:12:41 -0000	1.27
  @@ -956,7 +956,7 @@
   an init handler:
   
     sub init : FilterInitHandler {
  -      my $filter = shift;
  +      my $f = shift;
         #...
         return Apache::OK;
     }
  @@ -970,8 +970,8 @@
   had a chance to run, if some condition is true:
   
     sub init : FilterInitHandler {
  -      my $filter = shift;
  -      $filter->remove() if should_remove_filter();
  +      my $f = shift;
  +      $f->remove() if should_remove_filter();
         return Apache::OK;
     }
   
  @@ -997,7 +997,7 @@
     use base qw(Apache::Filter);
     sub init   : FilterInitHandler { ... }
     sub filter : FilterRequestHandler FilterHasInitHandler(\&init) {
  -      my ($filter, $bb) = @_;
  +      my ($f, $bb) = @_;
         # ...
         return Apache::OK;
     }
  @@ -2270,9 +2270,9 @@
     use constant TOKEN_SIZE => 1024*16 + 5; # ~16k
     
     sub filter {
  -      my($filter, $bb, $mode, $block, $readbytes) = @_;
  -      my $ba = $filter->r->connection->bucket_alloc;
  -      my $ctx = $filter->ctx;
  +      my($f, $bb, $mode, $block, $readbytes) = @_;
  +      my $ba = $f->r->connection->bucket_alloc;
  +      my $ctx = $f->ctx;
         my $buffer = defined $ctx ? $ctx : '';
         $ctx = '';  # reset
         my $seen_eos = 0;
  @@ -2282,8 +2282,8 @@
         # fetch and consume bucket brigades untill we have at least TOKEN_SIZE
         # bytes to work with
         do {
  -          my $tbb = APR::Brigade->new($filter->r->pool, $ba);
  -          my $rv = $filter->next->get_brigade($tbb, $mode, $block, $readbytes);
  +          my $tbb = APR::Brigade->new($f->r->pool, $ba);
  +          my $rv = $f->next->get_brigade($tbb, $mode, $block, $readbytes);
             warn "asking for a bb\n";
             ($data, $seen_eos) = flatten_bb($tbb);
             $tbb->destroy;
  @@ -2310,7 +2310,7 @@
         }
         else {
             # will re-use the remainder on the next invocation
  -          $filter->ctx($ctx);
  +          $f->ctx($ctx);
             warn "storing the remainder: $len bytes\n";
         }
     
  
  
  

---------------------------------------------------------------------
To unsubscribe, e-mail: docs-cvs-unsubscribe@perl.apache.org
For additional commands, e-mail: docs-cvs-help@perl.apache.org


Mime
View raw message