fix #9 - (?) default empty locations to empty string

You can't pass "us-east-1" as a location constraint to S3. It responds
with "The specified location-constraint is not valid". I think you can
pass any other location though. This is dumb, but that's how S3 defines
it.

w/r/t 454bb7a

Changes

@@ -1,6 +1,9 @@
 
 Changelog for perl module AWS::S3
 
+0.15 2018-04-20
+  - Fix (again?) sending of undefined location param in ->add_bucket (GH #9)
+
 0.14 2018-04-13
   - Fix sending of undefined location param in ->add_bucket (GH #9)
 

README.markdown

@@ -168,9 +168,10 @@ Returns the [AWS::S3::Bucket](https://metacpan.org/pod/AWS::S3::Bucket) object m
 
 Returns nothing otherwise.
 
-## add\_bucket( name => $name )
+## add\_bucket( name => $name, location => 'us-west-1' )
 
-Attempts to create a new bucket with the name provided.
+Attempts to create a new bucket with the name provided. The location parameter is optional
+and, as per the AWS docs, will default to "us-east-1".
 
 On success, returns the new [AWS::S3::Bucket](https://metacpan.org/pod/AWS::S3::Bucket)
 

lib/AWS/S3.pm

@@ -13,7 +13,7 @@ use AWS::S3::ResponseParser;
 use AWS::S3::Owner;
 use AWS::S3::Bucket;
 
-our $VERSION = '0.14';
+our $VERSION = '0.15';
 
 has [qw/access_key_id secret_access_key/] => ( is => 'ro', isa => 'Str' );
 

lib/AWS/S3/Request/CreateBucket.pm

@@ -20,7 +20,7 @@ has 'location' => (
 
     # https://docs.aws.amazon.com/AmazonS3/latest/API/RESTBucketPUT.html
     # "By default, the bucket is created in the US East (N. Virginia) region."
-    default  => sub { 'us-east-1' },
+    default  => sub { '' },
 );
 
 has '+_expect_nothing' => ( default => 1 );
@@ -30,7 +30,7 @@ sub request {
 
     my $xml = <<"XML";
 <CreateBucketConfiguration xmlns="http://s3.amazonaws.com/doc/2006-03-01/"> 
-  <LocationConstraint>@{[ $s->location || 'us-east-1' ]}</LocationConstraint> 
+  <LocationConstraint>@{[ $s->location || '' ]}</LocationConstraint> 
 </CreateBucketConfiguration>
 XML