Skip Menu |

This queue is for tickets about the Net-Async-Webservice-S3 CPAN distribution.

Report information
The Basics
Id: 119183
Status: patched
Priority: 0/
Queue: Net-Async-Webservice-S3
People
Owner: Nobody in particular
Requestors: TEAM [...] cpan.org
Cc:
AdminCc:
Bug Information
Severity: (no value)
Broken in: 0.18
Fixed in: (no value)

History Show all quoted text
  Thu Dec 08 11:58:10 2016 TEAM [...] cpan.org - Ticket created
Subject: ->list_bucket support for NextMarker
When there are many keys in a bucket, only the first "page" is returned (as defined by list_max_keys). Adding this: $last_key //= $xpc->findvalue(".//s3:NextMarker"); immediately before https://metacpan.org/source/PEVANS/Net-Async-Webservice-S3-0.18/lib/Net/Async/Webservice/S3.pm#L511 seems to fix it.
  Wed Nov 29 12:08:30 2017 leonerd-cpan [...] leonerd.org.uk - Correspondence added
I can add that one line of code easily enough, but currently I don't have a unit test for it so it's a "blind fix". Will be in 0.19 anyway though -- Paul Evans
  Wed Nov 29 12:08:31 2017 The RT System itself - Status changed from 'new' to 'open'
  Wed Nov 29 12:14:49 2017 leonerd-cpan [...] leonerd.org.uk - Correspondence added
Subject: rt119183.patch
=== modified file 'lib/Net/Async/Webservice/S3.pm' --- lib/Net/Async/Webservice/S3.pm 2017-11-29 17:05:48 +0000 +++ lib/Net/Async/Webservice/S3.pm 2017-11-29 17:12:03 +0000 @@ -502,6 +502,8 @@ push @prefixes, $key; } + $last_key //= $xpc->findvalue(".//s3:NextMarker"); + if( $xpc->findvalue( ".//s3:IsTruncated" ) eq "true" ) { return Future->wrap( $last_key ); }
  Wed Nov 29 12:14:56 2017 leonerd-cpan [...] leonerd.org.uk - Status changed from 'open' to 'patched'