Amazon-S3
view release on metacpan - search on metacpan
view release on metacpan or search on metacpan
lib/Amazon/S3.pm view on Meta::CPAN
sub turn_on_special_retry {
########################################################################
my ($self) = @_;
if ( $self->retry ) {
# In the field we are seeing issue of Amazon returning with a 400
# code in the case of timeout. From AWS S3 logs: REST.PUT.PART
# Backups/2017-05-04/<account>.tar.gz "PUT
# /Backups<path>?partNumber=27&uploadId=<id> - HTTP/1.1" 400
# RequestTimeout 360 20971520 20478 - "-" "libwww-perl/6.15"
my $http_codes_hr = $self->ua->codes_to_determinate();
$http_codes_hr->{$HTTP_BAD_REQUEST} = $TRUE;
}
return;
}
########################################################################
sub turn_off_special_retry {
########################################################################
my ($self) = @_;
if ( $self->retry ) {
# In the field we are seeing issue with Amazon returning a 400
# code in the case of timeout. From AWS S3 logs: REST.PUT.PART
# Backups/2017-05-04/<account>.tar.gz "PUT
# /Backups<path>?partNumber=27&uploadId=<id> - HTTP/1.1" 400
# RequestTimeout 360 20971520 20478 - "-" "libwww-perl/6.15"
my $http_codes_hr = $self->ua->codes_to_determinate();
delete $http_codes_hr->{$HTTP_BAD_REQUEST};
}
return;
}
########################################################################
sub region {
########################################################################
view all matches for this distributionview release on metacpan - search on metacpan
( run in 1.474 second using v1.00-cache-2.02-grep-82fe00e-cpan-cec75d87357c )