| Subject: | error handling has changed (patch included) |
S3 no longer returns errors under an <Error> element. This patch fixes that:
--- local/lib/perl5/Amazon/S3.pm~ 2009-08-14 18:14:32.000000000 -0600
+++ local/lib/perl5/Amazon/S3.pm 2015-03-27 11:36:55.000000000 -0600
@@ -386,9 +386,9 @@
my $r = ref $src ? $src : $self->_xpc_of_content($src);
- if ($r->{Error}) {
- $self->err($r->{Error}{Code});
- $self->errstr($r->{Error}{Message});
+ if ($r->{Code}) {
+ $self->err($r->{Code});
+ $self->errstr($r->{Message});
return 1;
}
return 0;