r19658 - in /trunk/libnet-amazon-s3-perl: debian/changelog lib/Net/Amazon/S3/Bucket.pm

[joeyh at users.alioth.debian.org]

Author: joeyh
Date: Thu May  8 01:04:59 2008
New Revision: 19658

URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=19658
Log:
Allow storing a key named "0".
(Upstream bug report: http://rt.cpan.org//Ticket/Display.html?id=35705)

Modified:
    trunk/libnet-amazon-s3-perl/debian/changelog
    trunk/libnet-amazon-s3-perl/lib/Net/Amazon/S3/Bucket.pm

Modified: trunk/libnet-amazon-s3-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-amazon-s3-perl/debian/changelog?rev=19658&op=diff
==============================================================================
--- trunk/libnet-amazon-s3-perl/debian/changelog (original)
+++ trunk/libnet-amazon-s3-perl/debian/changelog Thu May  8 01:04:59 2008
@@ -1,3 +1,10 @@
+libnet-amazon-s3-perl (0.44-3) UNRELEASED; urgency=low
+
+  * Allow storing a key named "0".
+    (Upstream bug report: http://rt.cpan.org//Ticket/Display.html?id=35705)
+
+ -- Joey Hess <joeyh at debian.org>  Wed, 07 May 2008 21:00:03 -0400
+
 libnet-amazon-s3-perl (0.44-2) unstable; urgency=low
 
   * Add missing dependency on liblwp-useragent-determined-perl.

Modified: trunk/libnet-amazon-s3-perl/lib/Net/Amazon/S3/Bucket.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-amazon-s3-perl/lib/Net/Amazon/S3/Bucket.pm?rev=19658&op=diff
==============================================================================
--- trunk/libnet-amazon-s3-perl/lib/Net/Amazon/S3/Bucket.pm (original)
+++ trunk/libnet-amazon-s3-perl/lib/Net/Amazon/S3/Bucket.pm Thu May  8 01:04:59 2008
@@ -112,7 +112,7 @@
 # returns bool
 sub add_key {
     my ( $self, $key, $value, $conf ) = @_;
-    croak 'must specify key' unless $key && length $key;
+    croak 'must specify key' unless defined $key && length $key;
 
     if ( $conf->{acl_short} ) {
         $self->account->_validate_acl_short( $conf->{acl_short} );
@@ -260,7 +260,7 @@
 # returns bool
 sub delete_key {
     my ( $self, $key ) = @_;
-    croak 'must specify key' unless $key && length $key;
+    croak 'must specify key' unless defined $key && length $key;
     return $self->account->_send_request_expect_nothing( 'DELETE',
         $self->_uri($key), {} );
 }