dougm 01/04/19 10:36:37 Modified: t/response/TestApache post.pm Log: move read_post util so it can be used by other tests Revision Changes Path 1.2 +1 -18 modperl-2.0/t/response/TestApache/post.pm Index: post.pm =================================================================== RCS file: /home/cvs/modperl-2.0/t/response/TestApache/post.pm,v retrieving revision 1.1 retrieving revision 1.2 diff -u -r1.1 -r1.2 --- post.pm 2001/04/02 09:06:07 1.1 +++ post.pm 2001/04/19 17:36:34 1.2 @@ -3,28 +3,11 @@ use strict; use warnings FATAL => 'all'; -use APR::Table (); - -sub read_post { - my $r = shift; - - $r->setup_client_block; - - return undef unless $r->should_client_block; - - my $len = $r->headers_in->get('content-length'); - - my $buf; - $r->get_client_block($buf, $len); - - return $buf; -} - sub handler { my $r = shift; $r->content_type('text/plain'); - my $data = read_post($r) || ""; + my $data = ModPerl::Test::read_post($r) || ""; $r->puts(join ':', length($data), $data);