From: Don Armstrong <don@donarmstrong.com>
Date: Mon, 22 Feb 2010 08:07:53 +0000 (-0800)
Subject: allow colons in package names to work with src: bits
X-Git-Url: https://git.donarmstrong.com/?p=bugscan.git;a=commitdiff_plain;h=01a709e185f5e8f2b059293c3a770a28b28df927

allow colons in package names to work with src: bits
---

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;
 		}