Changeset 263

Show
Ignore:
Timestamp:
09/24/08 11:13:35 (4 months ago)
Author:
jwalt
Message:

Fix regex typo in parse_post_data

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/plugins/parse_post_data

    r261 r263  
    256256            my $blen = length($boundary)+2; # boundary plus two dashes prefix 
    257257            my $complete = $data =~ s/^(?:(.*?)\r?\n)??--\Q$boundary\E/--$boundary/s; 
    258             $data =~ s/((?:.*\r?\n)?[^\r\n]{$blen,})//s unless $complete; 
     258            $data =~ s/^((?:.*\r?\n)?[^\r\n]{$blen,})//s unless $complete; 
    259259            my $decoded = $1; 
    260260            $decoded = '' if !defined $decoded; 
    …… 
    283283                        DIR => $self->config('FileUploadTempDir')); 
    284284                    $part->{fh} = $fh; 
     285                    binmode($fh, ':raw'); 
    285286                } 
    286287                $part->{size} += length($decoded);