Patch by David Wheeler to eliminate a naked qw() warning

robert-b-clarke · Jun 19, 2011 · fe22ac0 · fe22ac0
1 parent 2a18e7f
commit fe22ac0
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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;