stas 2004/05/31 00:33:33
Modified: t/filter/TestFilter both_str_con_add.pm
t/protocol/TestProtocol echo_filter.pm
Log:
test $f->fflush
Revision Changes Path
1.13 +6 -3 modperl-2.0/t/filter/TestFilter/both_str_con_add.pm
Index: both_str_con_add.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/t/filter/TestFilter/both_str_con_add.pm,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -u -r1.12 -r1.13
--- both_str_con_add.pm 21 May 2004 22:01:16 -0000 1.12
+++ both_str_con_add.pm 31 May 2004 07:33:32 -0000 1.13
@@ -72,9 +72,12 @@
last if $bb->is_empty;
- my $b = APR::Bucket::flush_create($c->bucket_alloc);
- $bb->insert_tail($b);
- $c->output_filters->pass_brigade($bb);
+ # fflush is the equivalent of the following 3 lines of code:
+ #
+ # my $b = APR::Bucket::flush_create($c->bucket_alloc);
+ # $bb->insert_tail($b);
+ # $c->output_filters->pass_brigade($bb);
+ #$c->output_filters->fflush($bb);
}
$bb->destroy;
1.12 +6 -3 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.11
retrieving revision 1.12
diff -u -u -r1.11 -r1.12
--- echo_filter.pm 21 May 2004 22:01:16 -0000 1.11
+++ echo_filter.pm 31 May 2004 07:33:33 -0000 1.12
@@ -35,9 +35,12 @@
last if $bb->is_empty;
- my $b = APR::Bucket::flush_create($c->bucket_alloc);
- $bb->insert_tail($b);
- $c->output_filters->pass_brigade($bb);
+ # fflush is the equivalent of the following 3 lines of code:
+ #
+ # my $b = APR::Bucket::flush_create($c->bucket_alloc);
+ # $bb->insert_tail($b);
+ # $c->output_filters->pass_brigade($bb);
+ $c->output_filters->fflush($bb);
}
$bb->destroy;
