r75911 - in /branches/upstream/libanyevent-http-perl/current: Changes HTTP.pm META.json README

mxey-guest at users.alioth.debian.org mxey-guest at users.alioth.debian.org
Fri Jun 17 23:12:33 UTC 2011


Author: mxey-guest
Date: Fri Jun 17 23:12:23 2011
New Revision: 75911

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=75911
Log:
[svn-upgrade] new version libanyevent-http-perl (2.12)

Modified:
    branches/upstream/libanyevent-http-perl/current/Changes
    branches/upstream/libanyevent-http-perl/current/HTTP.pm
    branches/upstream/libanyevent-http-perl/current/META.json
    branches/upstream/libanyevent-http-perl/current/README

Modified: branches/upstream/libanyevent-http-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libanyevent-http-perl/current/Changes?rev=75911&op=diff
==============================================================================
--- branches/upstream/libanyevent-http-perl/current/Changes (original)
+++ branches/upstream/libanyevent-http-perl/current/Changes Fri Jun 17 23:12:23 2011
@@ -2,6 +2,10 @@
 
 TODO: provide lwp_request function that takes an lwp http requets and returns a http response.
 TODO: httpbis: $location = URI->new_abs($location, "$scheme://$host:$port$path_query")->as_string;
+
+2.12 Tue Jun 14 07:22:54 CEST 2011
+	- fix a possible 'Can't call method "destroyed"' error (which would
+          have been reported by Carl Chambers).
 
 2.11 Tue May 10 14:33:28 CEST 2011
 	- the keepalive session cache wouldn't take port and scheme into account

Modified: branches/upstream/libanyevent-http-perl/current/HTTP.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libanyevent-http-perl/current/HTTP.pm?rev=75911&op=diff
==============================================================================
--- branches/upstream/libanyevent-http-perl/current/HTTP.pm (original)
+++ branches/upstream/libanyevent-http-perl/current/HTTP.pm Fri Jun 17 23:12:23 2011
@@ -48,7 +48,7 @@
 
 use base Exporter::;
 
-our $VERSION = '2.11';
+our $VERSION = '2.12';
 
 our @EXPORT = qw(http_get http_post http_head http_request);
 
@@ -1140,13 +1140,11 @@
 
          $state{handle} = ka_fetch $ka_key;
          $state{handle}->destroyed
-            and die "got a destructed habndle. pah\n";#d#
+            and die "AnyEvent::HTTP: unexpectedly got a destructed handle (1), please report.";#d#
          $prepare_handle->();
          $state{handle}->destroyed
-            and die "got a destructed habndle. pa2\n";#d#
+            and die "AnyEvent::HTTP: unexpectedly got a destructed handle (2), please report.";#d#
          $handle_actual_request->();
-         $state{handle}->destroyed
-            and die "got a destructed habndle. pa3\n";#d#
 
       } else {
          my $tcp_connect = $arg{tcp_connect}
@@ -1388,7 +1386,7 @@
       warn -s _;
       if (stat $fh and -s _) {
          $ofs = -s _;
-         warn "-s is ", $ofs;#d#
+         warn "-s is ", $ofs;
          $hdr{"if-unmodified-since"} = AnyEvent::HTTP::format_date +(stat _)[9];
          $hdr{"range"} = "bytes=$ofs-";
       }

Modified: branches/upstream/libanyevent-http-perl/current/META.json
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libanyevent-http-perl/current/META.json?rev=75911&op=diff
==============================================================================
--- branches/upstream/libanyevent-http-perl/current/META.json (original)
+++ branches/upstream/libanyevent-http-perl/current/META.json Fri Jun 17 23:12:23 2011
@@ -11,7 +11,7 @@
    },
    "generated_by" : "ExtUtils::MakeMaker::JSONMETA version 7.000",
    "distribution_type" : "module",
-   "version" : "2.11",
+   "version" : "2.12",
    "name" : "AnyEvent-HTTP",
    "author" : [],
    "license" : "unknown",

Modified: branches/upstream/libanyevent-http-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libanyevent-http-perl/current/README?rev=75911&op=diff
==============================================================================
--- branches/upstream/libanyevent-http-perl/current/README (original)
+++ branches/upstream/libanyevent-http-perl/current/README Fri Jun 17 23:12:23 2011
@@ -494,7 +494,7 @@
           warn -s _;
           if (stat $fh and -s _) {
              $ofs = -s _;
-             warn "-s is ", $ofs;#d#
+             warn "-s is ", $ofs;
              $hdr{"if-unmodified-since"} = AnyEvent::HTTP::format_date +(stat _)[9];
              $hdr{"range"} = "bytes=$ofs-";
           }




More information about the Pkg-perl-cvs-commits mailing list