Select Code to Download

Select or download this

print "got a strange problem"
  if mod_perl::VERSION == 1.21 and ($| or client_is_printing("\015\012
+"))

Select or download this

<IfModule mod_perl.c>

...
   </Location>

</IfModule>

Select or download this

#!/usr/bin/perl -w

...

  debug_post_data();
}

Select or download this

#!/usr/bin/perl -w

...
  my $http_response = $useragent->request($http_request);

  print "\n<response>\n", $http_response->as_string, "</response>\n";

Select or download this

Request Content Length is 11680.

...


</response>

Select or download this
```
Request Content Length is 11681.
```

Select or download this

<response>
500 (Internal Server Error) read timeout
...


</response>

Select or download this

DEBUG: the content length is 11681
DEBUG: the read returncode was 11680
DEBUG: Finished. at /foo/bar/cgi-bin/echo_post_data.pl line 14.

Select or download this

Request Content Length is 11681.

...


</response>

Select or download this

sub read_post_data_chunked(;$$)
{
  my $content_length  = shift || $ENV{CONTENT_LENGTH};
...

  return $raw_data;
}

Select or download this

Summary of my perl5 (5.0 patchlevel 5 subversion 3) configuration:
  Platform:
...
    /usr/local/lib/perl5/site_perl/5.005/aix
    /usr/local/lib/perl5/site_perl/5.005
    .