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)



Subject: ->list_bucket support for NextMarker
Download (untitled) / with headers
text/plain 309b
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.
Download (untitled) / with headers
text/plain 162b
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
Subject: rt119183.patch
Download rt119183.patch
text/x-diff 433b
=== 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 ); }


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.