SOURCES: perl-POE-filter-httpd.patch (NEW) - patch for buggy handl...

[agaran]

Author: agaran                       Date: Tue Feb 19 20:28:56 2008 GMT
Module: SOURCES                       Tag: HEAD
---- Log message:
- patch for buggy handling bad uris in requests

---- Files affected:
SOURCES:
   perl-POE-filter-httpd.patch (NONE -> 1.1)  (NEW)

---- Diffs:

================================================================
Index: SOURCES/perl-POE-filter-httpd.patch
diff -u /dev/null SOURCES/perl-POE-filter-httpd.patch:1.1
--- /dev/null	Tue Feb 19 21:28:56 2008
+++ SOURCES/perl-POE-filter-httpd.patch	Tue Feb 19 21:28:50 2008
@@ -0,0 +1,17 @@
+Index: HTTPD.pm
+===================================================================
+--- lib/POE/Filter/HTTPD.pm	(revision 2223)
++++ lib/POE/Filter/HTTPD.pm	(revision 2270)
+@@ -175,7 +175,11 @@
+ 
+   # Use the request line to create a request object.
+ 
+-  my $r = HTTP::Request->new($1, URI->new($2));
++  my $method = $1;
++  my $req_path = $2;
++  $req_path =~ s/^[\/]{2,}/\//; # fix double slash starting path
++
++  my $r = HTTP::Request->new($method, URI->new($req_path));
+   $r->protocol($proto);
+   $self->[CLIENT_PROTO] = $proto = _http_version($proto);
+ 
================================================================