perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From do...@apache.org
Subject cvs commit: modperl-2.0/t/response/TestApache post.pm
Date Thu, 19 Apr 2001 17:36:37 GMT
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);
   
  
  
  

Mime
View raw message