Make sure an incorrect port returns a 400 error

src/cowboy_protocol.erl

@@ -379,7 +379,9 @@ request(B, State=#state{transport=Transport}, M, P, Q, F, Version, Headers) ->
 			request(B, State, M, P, Q, F, Version, Headers,
 				<<>>, default_port(Transport:name()));
 		{_, RawHost} ->
-			case parse_host(RawHost, <<>>) of
+			case catch parse_host(RawHost, <<>>) of
+				{'EXIT', _} ->
+					error_terminate(400, State);
 				{Host, undefined} ->
 					request(B, State, M, P, Q, F, Version, Headers,
 						Host, default_port(Transport:name()));

test/http_SUITE.erl

@@ -366,6 +366,7 @@ The document has moved
 		{400, "\r\n\r\n\r\n\r\n\r\n\r\n"},
 		{400, "GET / HTTP/1.1\r\nHost: ninenines.eu\r\n\r\n"},
 		{400, "GET http://proxy/ HTTP/1.1\r\n\r\n"},
+		{400, "GET / HTTP/1.1\r\nHost: localhost:bad_port\r\n\r\n"},
 		{505, ResponsePacket},
 		{408, "GET / HTTP/1.1\r\n"},
 		{408, "GET / HTTP/1.1\r\nHost: localhost"},