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);
