return \%post if $ENV{CONTENT_TYPE} !~
m!^(?:application/x-www-form-urlencoded|$)!;
- if ($ENV{MOD_PERL}) {
- $post = Apache->request->content;
- } else {
- read *STDIN, $post, $ENV{CONTENT_LENGTH};
- }
+ $post = $PLP::read->($ENV{CONTENT_LENGTH}) if $ENV{CONTENT_LENGTH};
return \%post unless defined $post and length $post;