[Rt-commit] r4432 - in HTTP-Server-Simple: .

[jesse at bestpractical.com]

Author: jesse
Date: Mon Jan 23 08:08:46 2006
New Revision: 4432

Modified:
   HTTP-Server-Simple/   (props changed)
   HTTP-Server-Simple/lib/HTTP/Server/Simple.pm

Log:
 r22885 at truegrounds:  jesse | 2006-01-23 12:56:22 +0100
 * Better handling for broken HTTP requests


Modified: HTTP-Server-Simple/lib/HTTP/Server/Simple.pm
==============================================================================
--- HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	(original)
+++ HTTP-Server-Simple/lib/HTTP/Server/Simple.pm	Mon Jan 23 08:08:46 2006
@@ -287,8 +287,8 @@
         my ( undef, $iaddr ) = sockaddr_in($remote_sockaddr);
         my $peeraddr = inet_ntoa($iaddr) || "127.0.0.1";
 
-        my ( $method, $request_uri, $proto ) = $self->parse_request
-            or do { $self->bad_request; return };
+        my ( $method, $request_uri, $proto ) = $self->parse_request;
+        unless ($method) { $self->bad_request; return };
 
         $proto ||= "HTTP/0.9";