[Bps-public-commit] brackup branch, master, updated. 4d172c9edcdc3f5a8e2d6aada1b590d2613f5040

[Alex Vandiver]

The branch, master has been updated
       via  4d172c9edcdc3f5a8e2d6aada1b590d2613f5040 (commit)
      from  38ee669ac3b9bd77cc2b58c8acedcf892ea1bb37 (commit)

Summary of changes:
 lib/Brackup/Target/Amazon.pm |    6 +++---
 1 files changed, 3 insertions(+), 3 deletions(-)

- Log -----------------------------------------------------------------
commit 4d172c9edcdc3f5a8e2d6aada1b590d2613f5040
Author: Alex Vandiver <alexmv at bestpractical.com>
Date:   Mon Jan 23 15:11:20 2012 -0500

    Error reporting

diff --git a/lib/Brackup/Target/Amazon.pm b/lib/Brackup/Target/Amazon.pm
index cea0f94..53609a3 100644
--- a/lib/Brackup/Target/Amazon.pm
+++ b/lib/Brackup/Target/Amazon.pm
@@ -31,16 +31,16 @@ sub new {
     $self->_common_s3_init;
 
     my $s3      = $self->{s3};
-    my $buckets = $s3->buckets or die "Failed to get bucket list";
+    my $buckets = $s3->buckets or die "Failed to get bucket list: " . $self->{s3}->errstr . "\n";
 
     unless (grep { $_->{bucket} eq $self->{chunk_bucket} } @{ $buckets->{buckets} }) {
         $s3->add_bucket({ bucket => $self->{chunk_bucket}, location_constraint => $self->{location} })
-            or die "Chunk bucket creation failed\n";
+            or die "Chunk bucket creation failed: " . $self->{s3}->errstr . "\n";
     }
 
     unless (grep { $_->{bucket} eq $self->{backup_bucket} } @{ $buckets->{buckets} }) {
         $s3->add_bucket({ bucket => $self->{backup_bucket}, location_constraint => $self->{location} })
-            or die "Backup bucket creation failed\n";
+            or die "Backup bucket creation failed: " . $self->{s3}->errstr . "\n";
     }
 
     return $self;

-----------------------------------------------------------------------