From 16c8174e8f7a1566485b5b6495302af9a61ad27a Mon Sep 17 00:00:00 2001
From: "David E. Wheeler" <david@justatheory.com>
Date: Mon, 16 May 2011 17:21:40 -0700
Subject: [PATCH] Eliminate "Use of qw(...) as parentheses is deprecated"
 warnings.

---
 lib/Net/Amazon/S3/Request/ListBucket.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/Net/Amazon/S3/Request/ListBucket.pm b/lib/Net/Amazon/S3/Request/ListBucket.pm
index a2c5479d..d9f18581 100644
--- a/lib/Net/Amazon/S3/Request/ListBucket.pm
+++ b/lib/Net/Amazon/S3/Request/ListBucket.pm
@@ -19,7 +19,7 @@ sub http_request {
     my $path = $self->bucket . "/";
 
     my @post;
-    foreach my $method qw(prefix delimiter max_keys marker) {
+    foreach my $method (qw(prefix delimiter max_keys marker)) {
         my $value = $self->$method;
         next unless $value;
         my $key = $method;