gistfile1.diff

diff -rupN /opt/local/lib/perl5/site_perl/5.8.9/AnyEvent/HTTPD/HTTPConnection.pm ./HTTPD/HTTPConnection.pm
--- /opt/local/lib/perl5/site_perl/5.8.9/AnyEvent/HTTPD/HTTPConnection.pm	2011-01-08 14:31:26.000000000 -0600
+++ ./HTTPD/HTTPConnection.pm	2011-01-08 14:30:44.000000000 -0600
@@ -361,9 +361,9 @@ sub push_header_line {
       if ($line =~ /(\S+) \040 (\S+) \040 HTTP\/(\d+)\.(\d+)/xso) {
          my ($meth, $url, $vm, $vi) = ($1, $2, $3, $4);
 
-         if (not grep { $meth eq $_ } qw/GET HEAD POST OPTIONS/) {
+         if (not grep { $meth eq $_ } qw/GET HEAD POST/) {
             $self->error (501, "not implemented",
-                          { Allow => "GET,HEAD,POST,OPTIONS" });
+                          { Allow => "GET,HEAD,POST" });
             return;
          }
 
diff -rupN /opt/local/lib/perl5/site_perl/5.8.9/AnyEvent/HTTPD.pm ./HTTPD.pm
--- /opt/local/lib/perl5/site_perl/5.8.9/AnyEvent/HTTPD.pm	2011-01-08 14:30:34.000000000 -0600
+++ ./HTTPD.pm	2011-01-08 14:30:04.000000000 -0600
@@ -164,7 +164,7 @@ sub new {
                   $cont = parse_urlencoded ($url->query);
                }
 
-               if ($meth eq 'GET' or $meth eq 'POST' or $meth eq 'OPTIONS') {
+               if ($meth eq 'GET' or $meth eq 'POST') {
 
                   weaken $con;