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.136 by root, Wed Oct 16 01:20:02 2019 UTC vs.
Revision 1.139 by root, Fri Aug 5 20:48:14 2022 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.24; 51our $VERSION = 2.25;
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;
… …
716} 716}
717 717
718our %IDEMPOTENT = ( 718our %IDEMPOTENT = (
719 DELETE => 1, 719 DELETE => 1,
720 GET => 1, 720 GET => 1,
721 QUERY => 1,
721 HEAD => 1, 722 HEAD => 1,
722 OPTIONS => 1, 723 OPTIONS => 1,
723 PUT => 1, 724 PUT => 1,
724 TRACE => 1, 725 TRACE => 1,
725 726
… …
737 MKCOL => 1, 738 MKCOL => 1,
738 MKREDIRECTREF => 1, 739 MKREDIRECTREF => 1,
739 MKWORKSPACE => 1, 740 MKWORKSPACE => 1,
740 MOVE => 1, 741 MOVE => 1,
741 ORDERPATCH => 1, 742 ORDERPATCH => 1,
743 PRI => 1,
742 PROPFIND => 1, 744 PROPFIND => 1,
743 PROPPATCH => 1, 745 PROPPATCH => 1,
744 REBIND => 1, 746 REBIND => 1,
745 REPORT => 1, 747 REPORT => 1,
746 SEARCH => 1, 748 SEARCH => 1,
… …
1238# $state{handle}->destroyed 1240# $state{handle}->destroyed
1239# and die "AnyEvent::HTTP: unexpectedly got a destructed handle (1), please report.";#d# 1241# and die "AnyEvent::HTTP: unexpectedly got a destructed handle (1), please report.";#d#
1240 $prepare_handle->(); 1242 $prepare_handle->();
1241# $state{handle}->destroyed 1243# $state{handle}->destroyed
1242# and die "AnyEvent::HTTP: unexpectedly got a destructed handle (2), please report.";#d# 1244# and die "AnyEvent::HTTP: unexpectedly got a destructed handle (2), please report.";#d#
1245 $rpath = $upath;
1243 $handle_actual_request->(); 1246 $handle_actual_request->();
1244 1247
1245 } else { 1248 } else {
1246 my $tcp_connect = $arg{tcp_connect} 1249 my $tcp_connect = $arg{tcp_connect}
1247 || do { require AnyEvent::Socket; \&AnyEvent::Socket::tcp_connect }; 1250 || do { require AnyEvent::Socket; \&AnyEvent::Socket::tcp_connect };

Diff Legend

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