This commit is contained in:
ian%hixie.ch 2003-03-14 02:16:09 +00:00
Родитель e3d4d08397
Коммит 068ced9a01
1 изменённых файлов: 5 добавлений и 3 удалений

Просмотреть файл

@ -68,9 +68,11 @@ sub decodeHTTPArguments {
# parse the MIME body
local $/ = undef;
my $entity = $parser->parse_data('Content-Type: ' . $self->CONTENT_TYPE . "\n" .
my $data = 'Content-Type: ' . $self->CONTENT_TYPE . "\n" .
'Content-Length: ' . $self->CONTENT_LENGTH . "\n" .
"\n" . <STDIN>);
"\n" . <STDIN>;
$self->dump(9, "Data was:\n==============================\n$data\n==============================");
my $entity = $parser->parse_data($data);
# handle the parts of the MIME body
# read up to 16KB, no more