[Secure-testing-commits] r15047 - bin

[Raphael Geissert]

Author: geissert
Date: 2010-07-28 20:29:35 +0000 (Wed, 28 Jul 2010)
New Revision: 15047

Modified:
   bin/embedded-cleanup
Log:
etch should be ignored, also warn about removed/itp entries when the package *does* exist


Modified: bin/embedded-cleanup
===================================================================
--- bin/embedded-cleanup	2010-07-28 19:19:37 UTC (rev 15046)
+++ bin/embedded-cleanup	2010-07-28 20:29:35 UTC (rev 15047)
@@ -65,6 +65,7 @@
 my @oldstables = qw(
 	woody
 	sarge
+	etch
 );
 
 my %pkgs;
@@ -145,6 +146,12 @@
 	    $reported = 1;
 	}
 
+	if (exists($pkgs{$embedding_package}{'sid'}) && !$reported
+		&& ($status eq 'removed' || $status eq 'itp')) {
+	    push @errors, "Package '$embedding_package' does exist, line:$.";
+	    $reported = 1;
+	}
+
 	if ($release) {
 	    unless ($reported || exists ($pkgs{$embedding_package}{$release})
 		    || grep {$_ eq $release} @oldstables) {