ignore undefined values when we filter

[bugscan.git] / bugreport

diff --git a/bugreport b/bugreport
index facc662108f9c4497e7394521fba7747dcc11f0b..c8cc82d0388e769893a2549068a183c885ee1c13 100755 (executable)
--- a/bugreport
+++ b/bugreport
@@ -173,7 +173,8 @@ sub FilterPackages($) {
        my $filter = shift;             # Distribution we want to keep
 
        for my $p (sort keys %scanlib::packagelist) {
-               delete $scanlib::packagelist{$p} unless ($scanlib::section{$p} =~ m/^$filter/);
+               delete $scanlib::packagelist{$p} unless (defined $scanlib::section{$p} and
+                                                        $scanlib::section{$p} =~ m/^$filter/);
        }
 }