cleanup-bintray: keep the most recent, not delete the most recent
This commit is contained in:
parent
bd29745eff
commit
12c073e2ee
|
@ -25,7 +25,7 @@ my $client = HTTP::Tiny->new(
|
||||||
my $resp = $client->get($apiurl);
|
my $resp = $client->get($apiurl);
|
||||||
die "Getting versions failed: HTTP status $resp->{status} (content: $resp->{content})" unless $resp->{success};
|
die "Getting versions failed: HTTP status $resp->{status} (content: $resp->{content})" unless $resp->{success};
|
||||||
my $decoded = decode_json($resp->{content});
|
my $decoded = decode_json($resp->{content});
|
||||||
my @versions = sort @{$decoded->{versions}};
|
my @versions = reverse sort @{$decoded->{versions}};
|
||||||
|
|
||||||
# Keep the most recent 5 versions.
|
# Keep the most recent 5 versions.
|
||||||
splice(@versions, 0, 5);
|
splice(@versions, 0, 5);
|
||||||
|
|
Loading…
Reference in New Issue