X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=Debbugs%2FStatus.pm;h=26fbcc23b9ee136de484c0994d6f5fdc57b65eae;hb=426fe0ee1b5fc70e19769f872922e99d72ed5d89;hp=b28ff5355658e4a24dc17bc29bc06da172334e39;hpb=d4b9a1bfe03c6ec1451c8f9178bb5a7458e9ae3e;p=debbugs.git

diff --git a/Debbugs/Status.pm b/Debbugs/Status.pm
index b28ff53..26fbcc2 100644
--- a/Debbugs/Status.pm
+++ b/Debbugs/Status.pm
@@ -270,7 +270,7 @@ sub read_bug{
 	 # create the found/fixed hashes which indicate when a
 	 # particular version was marked found or marked fixed.
 	 @{$data{$field}}{@{$data{"${field}_versions"}}} =
-	      (('') x (@{$data{"${field}_date"}} - @{$data{"${field}_versions"}}),
+	      (('') x (@{$data{"${field}_versions"}} - @{$data{"${field}_date"}}),
 	       @{$data{"${field}_date"}});
     }
 
@@ -732,9 +732,9 @@ sub addfoundversions {
     my $version = shift;
     my $isbinary = shift;
     return unless defined $version;
-    undef $package if $package =~ m[(?:\s|/)];
+    undef $package if defined $package and $package =~ m[(?:\s|/)];
     my $source = $package;
-    if ($package =~ s/^src://) {
+    if (defined $package and $package =~ s/^src://) {
 	$isbinary = 0;
 	$source = $package;
     }