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