X-Git-Url: https://git.deb.at/?p=deb%2Fpackages.git;a=blobdiff_plain;f=lib%2FPackages%2FDoNewPkg.pm;fp=lib%2FPackages%2FDoNewPkg.pm;h=60e6876c6274c53a044c933e9b48128e0d842bc9;hp=c9e0ca23f009f79615048c7d1a4519230667e2e7;hb=09fb5c8a6858850e45adea21c2b8644babfec3de;hpb=10253a9c867f3036137ef5ed5379da930ef04c20

diff --git a/lib/Packages/DoNewPkg.pm b/lib/Packages/DoNewPkg.pm
index c9e0ca2..60e6876 100644
--- a/lib/Packages/DoNewPkg.pm
+++ b/lib/Packages/DoNewPkg.pm
@@ -30,7 +30,7 @@ sub do_newpkg {
 
     my $sort_func = sub { $_[0][0] cmp $_[1][0] };
     $sort_func = sub { $_[0][1] <=> $_[1][1] or $_[0][0] cmp $_[1][0] }
-    if $opts->{mode} eq 'byage';
+	if $opts->{mode} eq 'byage';
 
     my $suite = $opts->{suite}[0];
     my $one_archive = @{$opts->{archive}} == 1 ?
@@ -46,6 +46,7 @@ sub do_newpkg {
 	chomp;
 	my @data = split /\s/, $_, 10;
 
+	next unless $data[2]; #removed packages
 	next unless $data[3] eq $suite;
 	next if $one_archive and $data[2] ne $one_archive;
 	next if $one_section and $data[5] ne $one_section;