diff --git a/webtools/PLIF/PLIF/Input/CGI/PostMultipart.pm b/webtools/PLIF/PLIF/Input/CGI/PostMultipart.pm index a016e9771454..9f113b62be89 100644 --- a/webtools/PLIF/PLIF/Input/CGI/PostMultipart.pm +++ b/webtools/PLIF/PLIF/Input/CGI/PostMultipart.pm @@ -68,9 +68,11 @@ sub decodeHTTPArguments { # parse the MIME body local $/ = undef; - my $entity = $parser->parse_data('Content-Type: ' . $self->CONTENT_TYPE . "\n" . - 'Content-Length: ' . $self->CONTENT_LENGTH . "\n" . - "\n" . ); + my $data = 'Content-Type: ' . $self->CONTENT_TYPE . "\n" . + 'Content-Length: ' . $self->CONTENT_LENGTH . "\n" . + "\n" . ; + $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