You signed in with another tab or window. Reload to refresh your session.You signed out in another tab or window. Reload to refresh your session.You switched accounts on another tab or window. Reload to refresh your session.Dismiss alert
{{ message }}
This repository was archived by the owner on Sep 30, 2024. It is now read-only.
But using Net::Amazon::S3, the following code snippet dies:
use strict;
use warnings;
use Net::Amazon::S3;
use Data::Dumper;
my $bucket = 'my-bucket';
my $key = 'foo//bar/baz/bak/20210208160007';
my $s3 = Net::Amazon::S3->new( {use_iam_role => 1, retry => 1} );
my $b = $s3->bucket($bucket);
my $res = $b->get_key($key) or do {
my $err = '';
if ($s3->err) {
$err .= $s3->err . ': ';
}
if ($s3->errstr) {
$err .= $s3->errstr;
}
die $err if $err;
die "s3 did not indicate the cause of the error";
};
Looking at this a bit, I noted that Net::Amazon::S3::Request::_build_signed_request will replace multiple consecutive / chars with a single /. While I think this is related, simply commenting out that line didn't cut it.