From: Debian BTS <debbugs@rietz>
Date: Mon, 22 Feb 2010 20:27:52 +0000 (+0000)
Subject: merge changes from don bugscan branch
X-Git-Url: https://git.donarmstrong.com/?p=bugscan.git;a=commitdiff_plain;h=1711f575e088f50505776a9ae4f605f9d2d66b5b;hp=fb44329222f15a8caed242d73e1abf406ad42868

merge changes from don bugscan branch
---

diff --git a/make-britney-counts b/make-britney-counts
index b67d132..a603b80 100755
--- a/make-britney-counts
+++ b/make-britney-counts
@@ -44,7 +44,7 @@ my %unstablebugs = ();
 while (my ($nr, $bug) = each %scanlib::bugs) {
 	for my $package (split /[,\s]+/, $bug->{'package'}) {
 		$package =~ y/A-Z/a-z/;
-		$package = $` if ($package =~ /[^-+._a-z0-9]/);
+		$package = $` if ($package =~ /[^-+._:a-z0-9]/);
 
 		# this hack is specific to britney counts, and ignores
 		# bugs tagged ignore for the next testing release
diff --git a/scanlib.pm b/scanlib.pm
index 65b3d7a..96aee35 100644
--- a/scanlib.pm
+++ b/scanlib.pm
@@ -238,7 +238,7 @@ sub scanspooldir() {
 		}
 
 		for my $package (split /[,\s]+/, $bug->{'package'}) {
-			$_= $package; y/A-Z/a-z/; $_= $` if m/[^-+._a-z0-9]/;
+			$_= $package; y/A-Z/a-z/; $_= $` if m/[^-+._:a-z0-9]/;
 			push @{$packagelist{$_}}, $f;
 		}