Home

Welcome to the kiokudb-backend-aws-sdb wiki!

To use me you need to patch your Amazon::SimpleDB:
(RT issue # 40388)

diff ur Amazon.orig/SimpleDB/Response.pm Amazon/SimpleDB/Response.pm

-- Amazon.orig/SimpleDB/Response.pm    2008-10-25 16:33:47.000000000 0200

++ Amazon/SimpleDB/Response.pm 2008-10-25 19:18:55.000000000 +0200

@ -12,9 +12,15 @

                  ‘QueryResponse’         => 1,

 );
sub new {
my $class = shift;
-    my $args = shift || {};

+    my $args = {};

+    if (ref($0) eq ‘HASH’) {

+        $args = shift;

+    } else {

+        $args = +{ @ };

+    }

     croak “No account” unless $args→{account};

     my $r = $args→{http_response};

     croak ‘No HTTP::Response object in http_response’

@ -41,6 +47,7 @

     }

     my $self = bless {}, $class;

     $self→{’account’}       = $args→{account};

+    $self→{’domain’}       = $args→{domain} if $args→{domain};

     $self→{’http_response’} = $r;

     $self→{’http_status’}   = $r→code;

     $self→{’content’}       = $tree;