You are viewing a plain text version of this content. The canonical link for it is here.
Posted to docs-cvs@perl.apache.org by st...@apache.org on 2003/05/23 10:12:42 UTC
cvs commit: modperl-docs/src/docs/2.0/user/handlers filters.pod
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