[ViewVC] Diff of: cvs/AnyEvent-HTTP/HTTP.pm

Comparing AnyEvent-HTTP/HTTP.pm (file contents):
Revision 1.3 by root, Wed Jun 4 11:58:36 2008 UTC vs.
Revision 1.4 by root, Wed Jun 4 11:59:22 2008 UTC

             }
             substr $_, 0, 1, ""
                for values %hdr;
-            if ($method ne "HEAD") {
+            if ($method eq "HEAD") {
+               %state = ();
+               $cb->(undef, \%hdr);
+            } else {
                if (exists $hdr{"content-length"}) {
                   $_[0]->unshift_read (chunk => $hdr{"content-length"}, sub {
                      # could cache persistent connection now
                      if ($hdr{connection} =~ /\bkeep-alive\b/i) {
                         # but we don't, due to misdesigns, this is annoyingly complex
 sub http_get($$;@) {
    unshift @_, "GET";
    &http_request
 }
+sub http_head($$;@) {
+   unshift @_, "HEAD";
+   &http_request
+}
 sub http_post($$$;@) {
    unshift @_, "POST", "body";
    &http_request
 }

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines