From 9961b4e577d6c2c67708d17e7fd08c0112481f5f Mon Sep 17 00:00:00 2001
From: Don Armstrong <don@archimedes>
Date: Wed, 7 Mar 2007 16:02:07 -0800
Subject: [PATCH]  * "Allow" for negative bug numbers in readbug  * Fix regex
 for packages in makestatus to allow for undefined packages

---
 Debbugs/Status.pm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/Debbugs/Status.pm b/Debbugs/Status.pm
index a7bce9d..565daeb 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) {
-- 
2.39.2