From 0ed6845a9f77718e909922620ece6139a359c65d Mon Sep 17 00:00:00 2001
From: Don Armstrong <don@donarmstrong.com>
Date: Wed, 16 Apr 2014 10:10:17 -0700
Subject: [PATCH] check for package being defined before source regex

---
 Debbugs/Status.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Debbugs/Status.pm b/Debbugs/Status.pm
index b28ff53..dfafce1 100644
--- 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;
     }
-- 
2.39.2