r38233 - in /trunk/libnet-amazon-perl: Changes META.yml README debian/changelog lib/Net/Amazon.pm
nhandler-guest at users.alioth.debian.org
nhandler-guest at users.alioth.debian.org
Thu Jun 18 22:04:44 UTC 2009
Author: nhandler-guest
Date: Thu Jun 18 22:04:39 2009
New Revision: 38233
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=38233
Log:
Update for 0.54 upstream release
Modified:
trunk/libnet-amazon-perl/Changes
trunk/libnet-amazon-perl/META.yml
trunk/libnet-amazon-perl/README
trunk/libnet-amazon-perl/debian/changelog
trunk/libnet-amazon-perl/lib/Net/Amazon.pm
Modified: trunk/libnet-amazon-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-amazon-perl/Changes?rev=38233&op=diff
==============================================================================
--- trunk/libnet-amazon-perl/Changes (original)
+++ trunk/libnet-amazon-perl/Changes Thu Jun 18 22:04:39 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: trunk/libnet-amazon-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-amazon-perl/META.yml?rev=38233&op=diff
==============================================================================
--- trunk/libnet-amazon-perl/META.yml (original)
+++ trunk/libnet-amazon-perl/META.yml Thu Jun 18 22:04:39 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: trunk/libnet-amazon-perl/README
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-amazon-perl/README?rev=38233&op=diff
==============================================================================
--- trunk/libnet-amazon-perl/README (original)
+++ trunk/libnet-amazon-perl/README Thu Jun 18 22:04:39 2009
@@ -1,5 +1,5 @@
######################################################################
- Net::Amazon 0.53
+ Net::Amazon 0.54
######################################################################
NAME
Net::Amazon - Framework for accessing amazon.com via REST
Modified: trunk/libnet-amazon-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-amazon-perl/debian/changelog?rev=38233&op=diff
==============================================================================
--- trunk/libnet-amazon-perl/debian/changelog (original)
+++ trunk/libnet-amazon-perl/debian/changelog Thu Jun 18 22:04:39 2009
@@ -1,4 +1,4 @@
-libnet-amazon-perl (0.53-1) unstable; urgency=low
+libnet-amazon-perl (0.54-1) unstable; urgency=low
* New upstream release
* debian/rules:
@@ -12,7 +12,7 @@
- Drop Build-Depends on quilt
- Bump Standards-Version to 3.8.2
- -- Nathan Handler <nhandler at ubuntu.com> Wed, 17 Jun 2009 20:44:47 +0000
+ -- Nathan Handler <nhandler at ubuntu.com> Thu, 18 Jun 2009 21:59:05 +0000
libnet-amazon-perl (0.51-1) unstable; urgency=low
Modified: trunk/libnet-amazon-perl/lib/Net/Amazon.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-amazon-perl/lib/Net/Amazon.pm?rev=38233&op=diff
==============================================================================
--- trunk/libnet-amazon-perl/lib/Net/Amazon.pm (original)
+++ trunk/libnet-amazon-perl/lib/Net/Amazon.pm Thu Jun 18 22:04:39 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