[Pkg-haskell-commits] [package-plan] 03/05: test-packages: Correctly report on obsolete binaries

[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 cbadb1b184bbe329bab95c8e9f84ad70972128a0
Author: Joachim Breitner <mail at joachim-breitner.de>
Date:   Tue Dec 23 23:43:37 2014 +0100

    test-packages: Correctly report on obsolete binaries
---
 test-packages.pl | 15 +++++++++------
 1 file changed, 9 insertions(+), 6 deletions(-)

diff --git a/test-packages.pl b/test-packages.pl
index 3f2102e..93dd440 100755
--- a/test-packages.pl
+++ b/test-packages.pl
@@ -44,21 +44,24 @@ while (<PACKAGES>) {
 	}
 	my ($pkg,$version,$attribs) = ($1,$2,$3);
 	$packages{$pkg}++;
-	if ($attribs and $attribs =~ s/obsolete\s*//) {
+
+	$attribs ||= '';
+
+	$group{$pkg} = $1 if $attribs =~ s/group=([a-z0-9-]+)\s*//;
+	$binary{$pkg} = $1 if $attribs =~ s/binary=([a-z0-9-]+)\s*//;
+	$binary{$pkg} = $pkg if $attribs =~ s/binary\s*//;
+
+	if ($attribs =~ s/obsolete\s*//) {
 		$obsolete{$pkg}++;
 		next;
 	}
-	if ($attribs and $attribs =~ s/avoid\s*//) {
+	if ($attribs =~ s/avoid\s*//) {
 		$avoid{$pkg}++;
 		next;
 	}
 	$versions{$pkg} = $version;
-	next unless $attribs;
 	$ignored{$pkg}++ if $attribs =~ s/ignored?\s*//;
 	$notest{$pkg}++ if $attribs =~ s/notest\s*//;
-	$binary{$pkg} = $1 if $attribs =~ s/binary=([a-z0-9-]+)\s*//;
-	$group{$pkg} = $1 if $attribs =~ s/group=([a-z0-9-]+)\s*//;
-	$binary{$pkg} = $pkg if $attribs =~ s/binary\s*//;
 	$ghcpkg{$pkg}++ if $attribs =~ s/ghcpkg\s*//;
 	$flags{$pkg} = [] unless exists $flags{$pkg};
 	push @{$flags{$pkg}}, $1 while $attribs =~ s/-f([^ ]+)\s*//;

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