cvs commit: modperl/t/net/perl test

[dougm]

dougm       00/09/29 08:49:55

  Modified:    t/net/perl test
  Log:
  make sure Apache::content does not block when called more than once in the same 
request
  
  Revision  Changes    Path
  1.16      +1 -0      modperl/t/net/perl/test
  
  Index: test
  ===================================================================
  RCS file: /home/cvs/modperl/t/net/perl/test,v
  retrieving revision 1.15
  retrieving revision 1.16
  diff -u -r1.15 -r1.16
  --- test      1999/08/04 03:43:01     1.15
  +++ test      2000/09/29 15:49:54     1.16
  @@ -99,6 +99,7 @@
   if ($ENV{CONTENT_LENGTH}) {
       #$len = $ENV{CONTENT_LENGTH};
       my $content = $r->content;
  +    my $r_content_will_not_block_when_called_twice = $r->content;
       eval { system $content }; 
       die "TaintCheck failed, I can `system \$content' 
($content:$ENV{CONTENT_LENGTH})" unless $@;
       #warn "TRAPPED: `system \$r->content' '$@'\n";