CGI-Simple
view release on metacpan or search on metacpan
lib/CGI/Simple.pm view on Meta::CPAN
480481482483484485486487488489490491492493494495496497498499500my
$CRLF
=
$self
->crlf;
READ:
while
(
$got_data
<
$length
) {
last
READ
unless
_internal_read(
$self
,
$handle
,
my
$buffer
);
$data
.=
$buffer
;
$got_data
+=
length
$buffer
;
unless
(
$boundary
) {
# If we're going to guess the boundary we need a complete line.
next
READ
unless
$data
=~ /^(.*)
$CRLF
/o;
$boundary
= $1;
# Still no boundary? Give up...
unless
(
$boundary
) {
$self
->cgi_error(
'400 No boundary supplied for multipart/form-data'
);
return
0;
}
$boundary
=
$self
->_massage_boundary(
$boundary
);
( run in 0.321 second using v1.01-cache-2.11-cpan-87723dcf8b7 )