dougm 02/04/05 17:11:04
Modified: t/protocol/TestProtocol echo_filter.pm
Log:
adjust to apr brigade api changes
Revision Changes Path
1.5 +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.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- echo_filter.pm 30 Jan 2002 05:21:52 -0000 1.4
+++ echo_filter.pm 6 Apr 2002 01:11:04 -0000 1.5
@@ -11,7 +11,7 @@
sub handler {
my Apache::Connection $c = shift;
- my $bb = APR::Brigade->new($c->pool);
+ my $bb = APR::Brigade->new($c->pool, $c->bucket_alloc);
for (;;) {
my $rv = $c->input_filters->get_brigade($bb,
@@ -26,7 +26,7 @@
last;
}
- my $b = APR::Bucket::flush_create();
+ my $b = APR::Bucket::flush_create($c->bucket_alloc);
$bb->insert_tail($b);
$c->output_filters->pass_brigade($bb);
}
