r38229 - in /branches/upstream/libnet-amazon-perl/current: Changes META.yml README lib/Net/Amazon.pm

nhandler-guest at users.alioth.debian.org nhandler-guest at users.alioth.debian.org
Thu Jun 18 21:47:35 UTC 2009


Author: nhandler-guest
Date: Thu Jun 18 21:47:21 2009
New Revision: 38229

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=38229
Log:
[svn-upgrade] Integrating new upstream version, libnet-amazon-perl (0.54)

Modified:
    branches/upstream/libnet-amazon-perl/current/Changes
    branches/upstream/libnet-amazon-perl/current/META.yml
    branches/upstream/libnet-amazon-perl/current/README
    branches/upstream/libnet-amazon-perl/current/lib/Net/Amazon.pm

Modified: branches/upstream/libnet-amazon-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-amazon-perl/current/Changes?rev=38229&op=diff
==============================================================================
--- branches/upstream/libnet-amazon-perl/current/Changes (original)
+++ branches/upstream/libnet-amazon-perl/current/Changes Thu Jun 18 21:47:21 2009
@@ -1,4 +1,9 @@
 Revision history for Perl extension Net::Amazon:
+0.54 (06/17/2009)
+   (cb) Alfons Wittmann reported that signing requests broke caching due
+        to the current time being incorporated into every signed URL 
+	submitted.
+
 0.53 (06/13/2009)
    (cb) Nathan Handler re-reported a man page issue on Ubuntu, rt 46708.  
         I managed to fix 197 issues, except for the specific one he called 

Modified: branches/upstream/libnet-amazon-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-amazon-perl/current/META.yml?rev=38229&op=diff
==============================================================================
--- branches/upstream/libnet-amazon-perl/current/META.yml (original)
+++ branches/upstream/libnet-amazon-perl/current/META.yml Thu Jun 18 21:47:21 2009
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:                Net-Amazon
-version:             0.53
+version:             0.54
 abstract:            Framework for accessing amazon.com via REST
 license:             ~
 author:              

Modified: branches/upstream/libnet-amazon-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-amazon-perl/current/README?rev=38229&op=diff
==============================================================================
--- branches/upstream/libnet-amazon-perl/current/README (original)
+++ branches/upstream/libnet-amazon-perl/current/README Thu Jun 18 21:47:21 2009
@@ -1,5 +1,5 @@
 ######################################################################
-    Net::Amazon 0.53
+    Net::Amazon 0.54
 ######################################################################
 NAME
     Net::Amazon - Framework for accessing amazon.com via REST

Modified: branches/upstream/libnet-amazon-perl/current/lib/Net/Amazon.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libnet-amazon-perl/current/lib/Net/Amazon.pm?rev=38229&op=diff
==============================================================================
--- branches/upstream/libnet-amazon-perl/current/lib/Net/Amazon.pm (original)
+++ branches/upstream/libnet-amazon-perl/current/lib/Net/Amazon.pm Thu Jun 18 21:47:21 2009
@@ -8,7 +8,7 @@
 use strict;
 use warnings;
 
-our $VERSION          = '0.53';
+our $VERSION          = '0.54';
 our $WSDL_DATE        = '2009-03-31';
 our $Locale           = 'us';
 our @CANNED_RESPONSES = ();
@@ -162,6 +162,11 @@
             'Version'        => $WSDL_DATE,
             map { $_, $params{$_} } sort keys %params,
         );
+	
+        # Signed requests will have different URLs, which breaks caching.
+        # Get a cachable URL before signing the request.
+        my $url_cachablestr = $url->as_string;
+
         # New signature for 2009-03-31. Do not alter URL after this!
         $url = $self->_sign_request($url) if exists $self->{secret_key};
 
@@ -171,7 +176,7 @@
 
         DEBUG(sub { "urlstr=" . $urlstr });
 
-        my $xml = fetch_url($self, $urlstr, $res);
+        my $xml = fetch_url($self, $urlstr, $url_cachablestr, $res);
 
         if(!defined $xml) {
             return $res;
@@ -229,7 +234,7 @@
 ##################################################
 sub fetch_url {
 ##################################################
-    my($self, $url, $res) = @_;
+    my($self, $url, $url_cachablestr, $res) = @_;
 
     my $max_retries = 2;
 
@@ -242,7 +247,7 @@
     }
 
     if(exists $self->{cache}) {
-        my $resp = $self->{cache}->get($url);
+        my $resp = $self->{cache}->get($url_cachablestr);
         if(defined $resp) {
             INFO("Serving from cache");
             return $resp;
@@ -309,7 +314,7 @@
     }
 
     if(exists $self->{cache}) {
-        $self->{cache}->set($url, $resp->content());
+        $self->{cache}->set($url_cachablestr, $resp->content());
     }
 
     return $resp->content();




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