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

diff --git a/bin/newpkg_info b/bin/newpkg_info
index e2f36ae..700a079 100755
--- a/bin/newpkg_info
+++ b/bin/newpkg_info
@@ -64,9 +64,13 @@ for (my $age = 0; $age < 7; $age++) {
 
     my %archives = map { $_ => 1 } qw( us security non-US );
     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";
     }