note
IlyaM
AFAIK [read] only <b>tries</b> to read specified amount of data from filehandle and actually can return less data. Correct code should use loop like:
<code>
sub _read_content {
my $length = $ENV{CONTENT_LENGTH};
my $rest = $length;
my $buf;
while($rest < $length) {
my $read = read STDIN, $buf, $length - $rest, $rest;
die "Can't read from a stream: $!"
unless defined $read;
return $buf if $read == 0;
$rest += $read;
}
return $buf;
}
</code>
<p>
<font color="grey">
--<br>
Ilya Martynov
(<A HREF="http://martynov.org/">http://martynov.org/</a>)
</font>
131978
132160