travis/cleanup-bintray: use dpkg --compare-versions (#2453)

[i3/i3] / travis / cleanup-bintray.pl

diff --git a/travis/cleanup-bintray.pl b/travis/cleanup-bintray.pl
index 296ae38818a4b560e875da9696a5c2a85e03e426..e89efb1bab0223b9393dffcb498556ec07f55036 100755 (executable)
--- 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);