Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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;
Add Comment
Please, Sign In to add comment