[Pkg-haskell-commits] [package-plan] 01/01: Only take newest version from apt-cache into account

[Joachim Breitner]

This is an automated email from the git hooks/post-receive script.

nomeata pushed a commit to branch ghc-7.8
in repository package-plan.

commit 4e42b58d6c203d5b620dedac0dbf65c36f30b6c2
Author: Joachim Breitner <mail at joachim-breitner.de>
Date:   Mon Apr 20 16:51:22 2015 +0200

    Only take newest version from apt-cache into account
---
 test-packages.pl | 13 +++++++++----
 1 file changed, 9 insertions(+), 4 deletions(-)

diff --git a/test-packages.pl b/test-packages.pl
index a469330..266a75b 100755
--- a/test-packages.pl
+++ b/test-packages.pl
@@ -82,8 +82,10 @@ while (<AVAILABLE>) {
 	}
 	my ($pkg,$version) = ($1, $2);
 	$version = 0.85 if $pkg eq "IfElse" and $version eq "0.85.0.0.1"; # anomaly
-	$available{$pkg} = $version;
-	$packages{$pkg}++;
+	unless (exists ($available{$pkg}) and version_compare($version, $available{$pkg}) == -1) {
+		$available{$pkg} = $version;
+		$packages{$pkg}++;
+	}
 }
 close AVAILABLE;
 
@@ -96,8 +98,11 @@ while ( my ($pkg, $bin) = each %binary ) {
 			print "Ignoring unparseable version for $pkg: $_\n";
 			$error_count++;
 		}
-		$available{$pkg} = $1;
-		$packages{$pkg}++;
+		my $version = $1;
+		unless (exists ($available{$pkg}) and version_compare($version, $available{$pkg}) == -1) {
+			$available{$pkg} = $version;
+			$packages{$pkg}++;
+		}
 	}
 	close VERS;
 }

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-haskell/package-plan.git