Skip to content
omega edited this page Sep 13, 2010 · 6 revisions

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;

Clone this wiki locally