r27788 - in /trunk/libnet-amazon-s3-perl: CHANGES META.yml debian/changelog lib/Net/Amazon/S3.pm lib/Net/Amazon/S3/Request.pm

[gregoa at users.alioth.debian.org]

Author: gregoa
Date: Fri Dec  5 21:22:58 2008
New Revision: 27788

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=27788
Log:
New upstream release.

Modified:
    trunk/libnet-amazon-s3-perl/CHANGES
    trunk/libnet-amazon-s3-perl/META.yml
    trunk/libnet-amazon-s3-perl/debian/changelog
    trunk/libnet-amazon-s3-perl/lib/Net/Amazon/S3.pm
    trunk/libnet-amazon-s3-perl/lib/Net/Amazon/S3/Request.pm

Modified: trunk/libnet-amazon-s3-perl/CHANGES
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-amazon-s3-perl/CHANGES?rev=27788&op=diff
==============================================================================
--- trunk/libnet-amazon-s3-perl/CHANGES (original)
+++ trunk/libnet-amazon-s3-perl/CHANGES Fri Dec  5 21:22:58 2008
@@ -1,4 +1,12 @@
 Revision history for Perl module Net::Amazon::S3:
+
+0.48 Thu Dec  4 09:24:23 GMT 2008
+    - be slightly less strict about bucket names: they can contain uppercase
+      letters, Amazon just doesn't recommend it (noticed by Simon Elliott,
+      fixes Brackup)
+
+0.47 Tue Dec  2 08:03:39 GMT 2008
+    - fix listing with a prefix (spotted by Nobuo Danjou)
 
 0.46 Mon Nov 24 08:53:18 GMT 2008
     - refactor request creation into Net::Amazon::S3::Request

Modified: trunk/libnet-amazon-s3-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-amazon-s3-perl/META.yml?rev=27788&op=diff
==============================================================================
--- trunk/libnet-amazon-s3-perl/META.yml (original)
+++ trunk/libnet-amazon-s3-perl/META.yml Fri Dec  5 21:22:58 2008
@@ -1,6 +1,6 @@
 --- #YAML:1.0
 name:                Net-Amazon-S3
-version:             0.46
+version:             0.48
 abstract:            Use the Amazon S3 - Simple Storage Service
 license:             perl
 author:              

Modified: trunk/libnet-amazon-s3-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-amazon-s3-perl/debian/changelog?rev=27788&op=diff
==============================================================================
--- trunk/libnet-amazon-s3-perl/debian/changelog (original)
+++ trunk/libnet-amazon-s3-perl/debian/changelog Fri Dec  5 21:22:58 2008
@@ -1,4 +1,4 @@
-libnet-amazon-s3-perl (0.46-1) UNRELEASED; urgency=low
+libnet-amazon-s3-perl (0.48-1) UNRELEASED; urgency=low
 
   NEEDS Data::Stream::Bulk::Callback
   

Modified: trunk/libnet-amazon-s3-perl/lib/Net/Amazon/S3.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-amazon-s3-perl/lib/Net/Amazon/S3.pm?rev=27788&op=diff
==============================================================================
--- trunk/libnet-amazon-s3-perl/lib/Net/Amazon/S3.pm (original)
+++ trunk/libnet-amazon-s3-perl/lib/Net/Amazon/S3.pm Fri Dec  5 21:22:58 2008
@@ -140,7 +140,7 @@
 has 'err'    => ( is => 'rw', isa => 'Maybe[Str]',     required => 0 );
 has 'errstr' => ( is => 'rw', isa => 'Maybe[Str]',     required => 0 );
 
-our $VERSION = '0.46';
+our $VERSION = '0.48';
 
 my $KEEP_ALIVE_CACHESIZE = 10;
 
@@ -491,6 +491,7 @@
         delimiter => $conf->{delimiter},
         max_keys  => $conf->{max_keys},
         marker    => $conf->{marker},
+        prefix    => $conf->{prefix},
     )->http_request;
 
     my $xpc = $self->_send_request($http_request);

Modified: trunk/libnet-amazon-s3-perl/lib/Net/Amazon/S3/Request.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-amazon-s3-perl/lib/Net/Amazon/S3/Request.pm?rev=27788&op=diff
==============================================================================
--- trunk/libnet-amazon-s3-perl/lib/Net/Amazon/S3/Request.pm (original)
+++ trunk/libnet-amazon-s3-perl/lib/Net/Amazon/S3/Request.pm Fri Dec  5 21:22:58 2008
@@ -15,13 +15,13 @@
 # Not be in an IP address style (e.g., "192.168.5.4")
 
 subtype 'BucketName1' => as 'Str' => where {
-    $_ =~ /^[a-z0-9._-]+$/;
+    $_ =~ /^[a-zA-Z0-9._-]+$/;
 } => message {
     "Bucket name ($_) must contain lowercase letters, numbers, periods (.), underscores (_), and dashes (-)";
 };
 
 subtype 'BucketName2' => as 'BucketName1' => where {
-    $_ =~ /^[a-z0-9]/;
+    $_ =~ /^[a-zA-Z0-9]/;
 } => message {
     "Bucket name ($_) must start with a number or letter";
 };