Scott, please try this patch:
--- CGI.pm.orig 2003-10-31 13:45:06.000000000 -0800
+++ CGI.pm 2003-10-31 13:58:28.000000000 -0800
@@ -515,8 +515,15 @@
}
if ($meth eq 'POST') {
- $self->read_from_client(\*STDIN,\$query_string,$content_length,0)
- if $content_length > 0;
+ if ($content_length > 0) {
+ my $len = $content_length;
+ while ($len > 0) {
+ my $data = '';
+ my $read = $self->read_from_client(\*STDIN,\$data,$len,0);
+ $len -= $read;
+ $query_string .= $data if $read > 0;
+ }
+ }
# Some people want to have their cake and eat it too!
# Uncomment this line to have the contents of the query string
# APPENDED to the POST data.
__________________________________________________________________
Stas Bekman JAm_pH ------> Just Another mod_perl Hacker
http://stason.org/ mod_perl Guide ---> http://perl.apache.org
mailto:[EMAIL PROTECTED] http://use.perl.org http://apacheweek.com
http://modperlbook.org http://apache.org http://ticketmaster.com
