perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From s...@apache.org
Subject cvs commit: modperl-2.0/t/filter/TestFilter input_body.pm input_msg.pm
Date Wed, 15 Jan 2003 06:10:43 GMT
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;
  
  
  

Mime
View raw message