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

Comparing AnyEvent-HTTP/HTTP.pm (file contents):
Revision 1.11 by root, Thu Jun 5 15:34:00 2008 UTC vs.
Revision 1.12 by root, Thu Jun 5 16:33:02 2008 UTC

 Whether to recurse requests or not, e.g. on redirects, authentication
 retries and so on, and how often to do so.
 =item headers => hashref
-The request headers to use.
+The request headers to use. Currently, C<http_request> may provide its
+own C<Host:>, C<Content-Length:>, C<Connection:> and C<Cookie:> headers
+and will provide defaults for C<User-Agent:> and C<Referer:>.
 =item timeout => $seconds
 The time-out to use for various stages - each connect attempt will reset
 the timeout, as will read or write activity. Default timeout is 5 minutes.
       }
    ;
 =cut
+sub _slot_schedule;
 sub _slot_schedule($) {
    my $host = shift;
    while ($CO_SLOT{$host}[0] < $MAX_PER_HOST) {
       if (my $cb = shift @{ $CO_SLOT{$host}[1] }) {
-         # somebody wnats that slot
+         # somebody wants that slot
          ++$CO_SLOT{$host}[0];
          $cb->(AnyEvent::Util::guard {
             --$CO_SLOT{$host}[0];
             _slot_schedule $host;
          });
       } else {
          # nobody wants the slot, maybe we can forget about it
          delete $CO_SLOT{$host} unless $CO_SLOT{$host}[0];
-         warn "$host deleted" unless $CO_SLOT{$host}[0];#d#
          last;
       }
    }
 }
    $uhost =~ s/^\[(.*)\]$/$1/;
    $upath .= "?$query" if length $query;
    $upath =~ s%^/?%/%;
+   $hdr{referer} ||= "$scheme://$authority$upath";
    # cookie processing
    if (my $jar = $arg{cookie_jar}) {
       %$jar = () if $jar->{version} < 1;

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