cleanup-bintray: keep the most recent, not delete the most recent

diff --git a/travis/cleanup-bintray.pl b/travis/cleanup-bintray.pl
index d150d1edf8ab5e5df735f86a332e965110676e60..296ae38818a4b560e875da9696a5c2a85e03e426 100755 (executable)
--- a/travis/cleanup-bintray.pl
+++ b/travis/cleanup-bintray.pl
@@ -25,7 +25,7 @@ my $client = HTTP::Tiny->new(
 my $resp = $client->get($apiurl);
 die "Getting versions failed: HTTP status $resp->{status} (content: $resp->{content})" unless $resp->{success};
 my $decoded = decode_json($resp->{content});
 my $resp = $client->get($apiurl);
 die "Getting versions failed: HTTP status $resp->{status} (content: $resp->{content})" unless $resp->{success};
 my $decoded = decode_json($resp->{content});

-my @versions = sort @{$decoded->{versions}};
+my @versions = reverse sort @{$decoded->{versions}};

 
 # Keep the most recent 5 versions.
 splice(@versions, 0, 5);
 
 # Keep the most recent 5 versions.
 splice(@versions, 0, 5);