X-Git-Url: https://git.sur5r.net/?a=blobdiff_plain;f=travis%2Fcleanup-bintray.pl;h=e89efb1bab0223b9393dffcb498556ec07f55036;hb=23ee16077a7e419ec6fc2c995d6e8f273a8238ca;hp=296ae38818a4b560e875da9696a5c2a85e03e426;hpb=86f00fdda0dd35d4be92533629c3d8e6f654bb45;p=i3%2Fi3

diff --git a/travis/cleanup-bintray.pl b/travis/cleanup-bintray.pl
index 296ae388..e89efb1b 100755
--- a/travis/cleanup-bintray.pl
+++ b/travis/cleanup-bintray.pl
@@ -25,7 +25,9 @@ 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 @versions = reverse sort @{$decoded->{versions}};
+my @versions = reverse sort {
+    (system("/usr/bin/dpkg", "--compare-versions", "$a", "gt", "$b") == 0) ? 1 : -1
+} @{$decoded->{versions}};
 
 # Keep the most recent 5 versions.
 splice(@versions, 0, 5);