Transfer-Encoding: chunked in requests

Hi all,

Is there a best-practice solution for dealing with requests with  
chunked transfer encoding? About the only thing I could do to get it  
to cooperate was this:

     # pull headers
     my $hdr = HTTP::Headers->new;
     map { $hdr->header($_, $r->headers_in->get($_)) } keys %{$r- 
 >headers_in};

     my ($buf, $cl) = ('', $hdr->header('Content-Length'));
     if (defined $cl and $cl =~ /^\d+$/ and $cl > 0) {
         $r->read($buf, $cl);
     }
     elsif (($hdr->header('Transfer-Encoding') || '') =~ /chunked/i) {
         # AHA. chunked.
         $r->setup_client_block(2); # REQUEST_CHUNKED_DECHUNK
         my $chunk = '';
         while (my $n = $r->get_client_block($chunk, 2048)) {
             # warn $n;
             $buf .= $chunk;
         }
         $hdr->header('Content-Length', length $buf);
         $hdr->remove_header('Transfer-Encoding');
     }
     else {
         $r->discard_request_body;
     }

$r->read() seems to have no effect when the input is chunked but the  
docs warn against using $r->get_client_block. I did notice that  
get_client_block clobbers $chunk instead of appending to it  
(originally I had it as $buf). So I'm interested if there is a more  
appropriate way to do this.

For reference, I am using: Apache/2.2.11 (Ubuntu) DAV/2 SVN/1.5.4  
mod_perl/2.0.4 Perl/v5.10.0

Thanks,

--
Dorian Taylor
Make things. Make sense.
http://doriantaylor.com