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