SOURCES: perl-POE-filter-httpd.patch - fix warning caused by that ...

[agaran]

Author: agaran                       Date: Wed Feb 20 00:10:28 2008 GMT
Module: SOURCES                       Tag: HEAD
---- Log message:
- fix warning caused by that patch

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

---- Diffs:

================================================================
Index: SOURCES/perl-POE-filter-httpd.patch
diff -u SOURCES/perl-POE-filter-httpd.patch:1.1 SOURCES/perl-POE-filter-httpd.patch:1.2
--- SOURCES/perl-POE-filter-httpd.patch:1.1	Tue Feb 19 21:28:50 2008
+++ SOURCES/perl-POE-filter-httpd.patch	Wed Feb 20 01:10:23 2008
@@ -1,13 +1,13 @@
-Index: HTTPD.pm
+Index: lib/POE/Filter/HTTPD.pm
 ===================================================================
---- lib/POE/Filter/HTTPD.pm	(revision 2223)
-+++ lib/POE/Filter/HTTPD.pm	(revision 2270)
+--- lib/POE/Filter/HTTPD.pm	(revision 2222)
++++ lib/POE/Filter/HTTPD.pm	(working copy)
 @@ -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 $method = uc $1;
 +  my $req_path = $2;
 +  $req_path =~ s/^[\/]{2,}/\//; # fix double slash starting path
 +
@@ -15,3 +15,11 @@
    $r->protocol($proto);
    $self->[CLIENT_PROTO] = $proto = _http_version($proto);
  
+@@ -206,7 +210,6 @@
+   # If this is a GET or HEAD request, we won't be expecting a message
+   # body.  Finish up.
+ 
+-  my $method = uc $r->method();
+   if ($method eq 'GET' or $method eq 'HEAD') {
+     $self->[FINISH]++;
+     # We are sending this back, so won't need it anymore.
================================================================

---- CVS-web:
    http://cvs.pld-linux.org/cgi-bin/cvsweb.cgi/SOURCES/perl-POE-filter-httpd.patch?r1=1.1&r2=1.2&f=u