discard empty packages in split_packages

diff --git a/Debbugs/Status.pm b/Debbugs/Status.pm
index 9796b3b606d6391cd2b33a6a7a92229f9ef911ff..f9f0af6689d3e12fa8c957c74b8a3fc875faee6d 100644 (file)
--- a/Debbugs/Status.pm
+++ b/Debbugs/Status.pm
@@ -655,7 +655,7 @@ Split a package string from the status file into a list of package names.
 sub splitpackages {
     my $pkgs = shift;
     return unless defined $pkgs;
-    return map lc, split /[ \t?,()]+/, $pkgs;
+    return grep {length $_} map lc, split /[\s,()?]+/, $pkgs;
 }