avoid infinit loop on multipart parse

lib/Mojo/Content/MultiPart.pm

@@ -163,6 +163,10 @@ sub _parse_multipart {
     elsif (($self->{multi_state} || '') eq 'multipart_body') {
       last unless $self->_parse_multipart_body($boundary);
     }
+
+    else {
+      last;
+    }
   }
 }
 

t/mojo/content2.t

@@ -0,0 +1,26 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+
+use Test::More tests => 1;
+
+use Mojo::Content::MultiPart;
+use Mojo::Message::Request;
+
+local $SIG{ALRM} = sub { die "timeout\n" }; alarm 2;
+
+my $req_seed = <<EOF;
+GET /foo HTTP/1.0
+Content-Type: multipart/mixed; boundary="abcdefg"
+
+Content
+--abcdefg--
+EOF
+
+$req_seed =~ s{\x0a}{\x0d\x0a}g;
+my $req = Mojo::Message::Request->new;
+$req->parse($req_seed);
+$req->parse({});
+
+is(1, 1, 'no infinit loop');