stas 2003/01/14 22:10:43 Modified: t/filter/TestFilter input_body.pm input_msg.pm Log: add debug prints to ease debug Revision Changes Path 1.12 +4 -1 modperl-2.0/t/filter/TestFilter/input_body.pm Index: input_body.pm =================================================================== RCS file: /home/cvs/modperl-2.0/t/filter/TestFilter/input_body.pm,v retrieving revision 1.11 retrieving revision 1.12 diff -u -r1.11 -r1.12 --- input_body.pm 11 Apr 2002 11:08:43 -0000 1.11 +++ input_body.pm 15 Jan 2003 06:10:42 -0000 1.12 @@ -16,6 +16,7 @@ sub handler : FilterRequestHandler { my($filter, $bb, $mode, $block, $readbytes) = @_; + #warn "Called!"; my $ba = $filter->r->connection->bucket_alloc; my $ctx_bb = APR::Brigade->new($filter->r->pool, $ba); @@ -33,17 +34,19 @@ $bucket->remove; if ($bucket->is_eos) { + #warn "EOS!!!!"; $bb->insert_tail($bucket); last; } my $status = $bucket->read($data); - + #warn "DATA bucket!!!!"; if ($status != APR::SUCCESS) { return $status; } if ($data) { + #warn"[$data]\n"; $bucket = APR::Bucket->new(scalar reverse $data); } 1.13 +3 -0 modperl-2.0/t/filter/TestFilter/input_msg.pm Index: input_msg.pm =================================================================== RCS file: /home/cvs/modperl-2.0/t/filter/TestFilter/input_msg.pm,v retrieving revision 1.12 retrieving revision 1.13 diff -u -r1.12 -r1.13 --- input_msg.pm 15 Jan 2003 04:54:42 -0000 1.12 +++ input_msg.pm 15 Jan 2003 06:10:42 -0000 1.13 @@ -19,6 +19,7 @@ sub handler : FilterConnectionHandler { my($filter, $bb, $mode, $block, $readbytes) = @_; + #warn "FILTER CALLED\n"; my $c = $filter->c; my $ctx_bb = APR::Brigade->new($c->pool, $c->bucket_alloc); @@ -35,11 +36,13 @@ $bucket->remove; if ($bucket->is_eos) { + #warn "EOS!!!!"; $bb->insert_tail($bucket); last; } my $status = $bucket->read($data); + #warn "FILTER READ: $data\n"; if ($status != APR::SUCCESS) { return $status;