You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by st...@apache.org on 2003/01/15 07:10:43 UTC
cvs commit: modperl-2.0/t/filter/TestFilter input_body.pm input_msg.pm
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;