view release on metacpan or  search on metacpan

lib/CGI/Simple.pm  view on Meta::CPAN

480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
my $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 );