check for package being defined before source regex

diff --git a/Debbugs/Status.pm b/Debbugs/Status.pm
index b28ff5355658e4a24dc17bc29bc06da172334e39..dfafce14891ecb2ba5425a2d4473c311710b4854 100644 (file)
--- a/Debbugs/Status.pm
+++ b/Debbugs/Status.pm
@@ -734,7 +734,7 @@ sub addfoundversions {
     return unless defined $version;
     undef $package if $package =~ m[(?:\s|/)];
     my $source = $package;
-    if ($package =~ s/^src://) {
+    if (defined $package and $package =~ s/^src://) {
        $isbinary = 0;
        $source = $package;
     }