ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/AnyEvent-HTTP/HTTP.pm
(Generate patch)

Comparing AnyEvent-HTTP/HTTP.pm (file contents):
Revision 1.106 by root, Tue Jun 14 05:20:13 2011 UTC vs.
Revision 1.107 by root, Tue Jun 14 05:23:12 2011 UTC

46use AnyEvent::Util (); 46use AnyEvent::Util ();
47use AnyEvent::Handle (); 47use AnyEvent::Handle ();
48 48
49use base Exporter::; 49use base Exporter::;
50 50
51our $VERSION = '2.11'; 51our $VERSION = '2.12';
52 52
53our @EXPORT = qw(http_get http_post http_head http_request); 53our @EXPORT = qw(http_get http_post http_head http_request);
54 54
55our $USERAGENT = "Mozilla/5.0 (compatible; U; AnyEvent-HTTP/$VERSION; +http://software.schmorp.de/pkg/AnyEvent)"; 55our $USERAGENT = "Mozilla/5.0 (compatible; U; AnyEvent-HTTP/$VERSION; +http://software.schmorp.de/pkg/AnyEvent)";
56our $MAX_RECURSE = 10; 56our $MAX_RECURSE = 10;
1138 if ($persistent && $KA_CACHE{$ka_key}) { 1138 if ($persistent && $KA_CACHE{$ka_key}) {
1139 $was_persistent = 1; 1139 $was_persistent = 1;
1140 1140
1141 $state{handle} = ka_fetch $ka_key; 1141 $state{handle} = ka_fetch $ka_key;
1142 $state{handle}->destroyed 1142 $state{handle}->destroyed
1143 and die "got a destructed handle. pah\n";#d# 1143 and die "AnyEvent::HTTP: unexpectedly got a destructed handle (1), please report.";#d#
1144 $prepare_handle->(); 1144 $prepare_handle->();
1145 $state{handle}->destroyed 1145 $state{handle}->destroyed
1146 and die "got a destructed handle. pa2\n";#d# 1146 and die "AnyEvent::HTTP: unexpectedly got a destructed handle (2), please report.";#d#
1147 $handle_actual_request->(); 1147 $handle_actual_request->();
1148 $state{handle}->destroyed
1149 and die "got a destructed handle. pa3\n";#d#
1150 1148
1151 } else { 1149 } else {
1152 my $tcp_connect = $arg{tcp_connect} 1150 my $tcp_connect = $arg{tcp_connect}
1153 || do { require AnyEvent::Socket; \&AnyEvent::Socket::tcp_connect }; 1151 || do { require AnyEvent::Socket; \&AnyEvent::Socket::tcp_connect };
1154 1152
1386 1384
1387 warn stat $fh; 1385 warn stat $fh;
1388 warn -s _; 1386 warn -s _;
1389 if (stat $fh and -s _) { 1387 if (stat $fh and -s _) {
1390 $ofs = -s _; 1388 $ofs = -s _;
1391 warn "-s is ", $ofs;#d# 1389 warn "-s is ", $ofs;
1392 $hdr{"if-unmodified-since"} = AnyEvent::HTTP::format_date +(stat _)[9]; 1390 $hdr{"if-unmodified-since"} = AnyEvent::HTTP::format_date +(stat _)[9];
1393 $hdr{"range"} = "bytes=$ofs-"; 1391 $hdr{"range"} = "bytes=$ofs-";
1394 } 1392 }
1395 1393
1396 http_get $url, 1394 http_get $url,

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines