From: Don Armstrong <don@archimedes>
Date: Thu, 8 Mar 2007 00:02:07 +0000 (-0800)
Subject:  * "Allow" for negative bug numbers in readbug
X-Git-Tag: release/2.6.0~584^2~2
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=9961b4e577d6c2c67708d17e7fd08c0112481f5f;p=debbugs.git

 * "Allow" for negative bug numbers in readbug
 * Fix regex for packages in makestatus to allow for undefined packages
---

diff --git a/Debbugs/Status.pm b/Debbugs/Status.pm
index a7bce9de..565daeb8 100644
--- a/Debbugs/Status.pm
+++ b/Debbugs/Status.pm
@@ -132,7 +132,10 @@ sub read_bug{
     my %param = validate_with(params => \@_,
 			      spec   => {bug => {type => SCALAR,
 						 optional => 1,
-						 regex    => qr/^\d+/,
+						 # something really
+						 # stupid passes
+						 # negative bugnumbers
+						 regex    => qr/^-?\d+/,
 						},
 					 location => {type => SCALAR|UNDEF,
 						      optional => 1,
@@ -440,7 +443,7 @@ sub addfixedversions {
     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 (defined $package and $isbinary) {