X-Git-Url: https://git.deb.at/?p=deb%2Fpackages.git;a=blobdiff_plain;f=bin%2Fnewpkg_info;h=37b7290753d4567c9da0938f7813b58995c6708c;hp=e2f36aef9790dcd4d7ec14136a9abb6d8fec73ac;hb=d833a5eed5296d1a24c35e8f0802f8291037198d;hpb=2ec757bb58907b15c43548be5601d4f2b8c7caac

diff --git a/bin/newpkg_info b/bin/newpkg_info
index e2f36ae..37b7290 100755
--- a/bin/newpkg_info
+++ b/bin/newpkg_info
@@ -62,11 +62,15 @@ for (my $age = 0; $age < 7; $age++) {
 	$changes{$_} = -1;
     }
 
-    my %archives = map { $_ => 1 } qw( us security non-US );
+    my %archives = map { $_ => 1 } qw( us security );
     foreach (sort keys %changes) {
-	my $entry = read_entry_simple( \%packages, $_, \%archives, $suite)
-	    or die "Fatal Error: Can't find entry for package $_\n";
-	shift @$entry; # remove virtual pkg info
+	my $entry = [];
+	if ($changes{$_} == 1) {
+	    $entry = read_entry_simple( \%packages, $_, \%archives, $suite);
+	    die "Fatal Error: Can't find entry for package $_\n"
+		unless @$entry;
+	    shift @$entry; # remove virtual pkg info
+	}
 	print CHANGES join(" ", $_, $age, @$entry)."\n";
 	print "Wrote entry: ".join(" ", $_, $age, @$entry)."\n";
     }